C/C++ - Перевод с Pascal на C - Компьютерный форум OSzone.net

Помогите с программой нужно переделать ее на C
Код:
Program Zavdanya_3;

Uses crt;

Type masiv=array[1..10000]of Integer;

Var F,f1:file of integer;

y,R:byte;

Procedure Stvorenna_file (var F:file of integer);

var x:integer;

i,n:integer;

Begin rewrite (F);

Write ('Созданный файл с размерностью: ');

read (n);

For i:=1 To n Do

Begin x:=Random(100)-50;

Write (f,x); End;

Close (F);

writeln;

write('файл создан!');

End;

Procedure Pereglad_file (var F:file of integer);

var x:integer;

Begin reset (F);

Write ('Вміст файлу: ');

While not eof(f) do

begin read (f,x);

write (x,' ');

End;

Writeln;

Writeln;

Write ('Файл прочитано полностью');

close (F);

End;

Procedure Dopovnenna_file (var F:file of integer);

Var x,a,i:integer;

Begin reset (f);

seek (f,filesize(f));

write ('Введите количество элементов на которую нужно увеличить файл: ');

Read (a);

For i:=1 To a Do

Begin x:=random(100)-50;

write (F,x);

End;

close (f);

end;

Procedure Vulychenna_10 (var F:file of integer);

Var Q:masiv; x:integer;

a,b,c,i,v,p:integer;

Begin

i:=1; reset (f);



While not eof(f) do

begin Read (F,x);

write(x,' ');

If (x mod 7)=0 Then i:=i*x;

End;

writeln;

if i=1 then writeln('Цифр кратных 7 нет')

else

writeln('Добуток: ',i);

Close (F);

End;

Begin Assign (F,'Zavdanya_3.txt');

Repeat

Write('--------------------------------------------------------------------------------');

Write (' главное меню');

Writeln;

Writeln ('1 - создание файла');

Writeln ('2 - просмотр файлу');

Writeln ('3 - дополнение файла');

Writeln ('4 - Вывести произведение чисел которые кратны числу 7');

Writeln ('0 - закончить программу');

Write('--------------------------------------------------------------------------------');

Write ('Введите один из пунктов главного меню: ');

Read (r);

Case r of

1:Stvorenna_file (F);

2:Pereglad_file (F);

3:Dopovnenna_file (f);

4:Vulychenna_10 (F);

0:Writeln ('конец программы');

End;

Writeln;

Until r=0;

End.