Помогите пожалуйста перевести код с Pascal на С [требует правки]

var G:array[1..9,1..9] of integer;
    F:array[1..9] of integer;
    i,j,str:integer;
    fl:text;
{***************}
procedure minim (var rez:integer);
var i,min,str:integer;
begin
min:=G[1,1]; str:=1;
for i:=1 to 9 do
for j:=1 to 9 do
 if G[i,j]<min then begin min:=G[i,j]; str:=i; end;
rez:=str;
end;
{**************}
begin
assign(fl,'kr1_var7.txt');
rewrite(fl);
for i:=1 to 9 do
for j:=1 to 9 do G[i,j]:=10+random(80);
for i:=1 to 9 do
    begin
     if i=1 then writeln(fl,'G:') else writeln(fl);
     for j:=1 to 9 do write (fl,G[i,j],' ');
    end;
writeln('G:');
for i:=1 to 9 do begin writeln;
for j:=1 to 9 do write (G[i,j]:8);
end;
writeln;
writeln;

minim(str);
for j:=1 to 9 do F[j]:=G[str,j];
writeln(fl);
writeln(fl);
writeln(fl,'F:');
for j:=1 to 9 do write (fl,F[j],' ');

writeln('F:');
for j:=1 to 9 do write (F[j]:8);
writeln;
readln;
close(fl);
end.