Нужен перевод с паскаля в фортран.

[Pascaler]

Нужно написать программу, написанную в Паскале, на Fortrane
Дело в том, что я Фортран вообще не изучал, решил обратиться к вам.

program proga;
type arr = array [1..10,1..10] of integer;
var a:arr; {исходный массив}
j,i,m,n:integer;
min: integer; {номер строки с минимальным приращением}
max: integer; {номер строки с максимальным приращением}
procedure readmatr(var a:arr);
var j,i:integer;
f: text;
begin
assign (f, 'c:\1.txt');
reset(f);
for i:=1 to n do begin
for j:=1 to m do begin
read(f,a[i,j]);
end;
end;
close(f);
end;
procedure vichmin(a:arr; var min:integer);
var jj,i,g,t:integer;
x: array[1..10] of integer;
k:array[1..10] of integer;
begin
{вычисление значения приращения}
for i:=1 to n do begin
for j:=1 to m-1 do begin
x[j]:=a[i,j]-a[i,j+1];
end;
for jj:=1 to m-2 do begin
if x[jj]<x[jj+1] then
t:=x[jj]
else
t:=x[jj+1]
end;
 
{запись значения приращения в массив}
k[i]:=k[i]+t;
end;
{нахождение и вывод минимального значения приращения}
for i:=1 to n-1 do begin
if k[i]<k[i+1] then
min:=i
else
min:=i+1
end;
writeln ('минимальное значение приращения в строке №:',min);
for i:=1 to n do begin
write(a[min,i],' ')
end;
end;
 
procedure vichmax(a:arr; var max:integer);
var ii,i,g,t:integer;
x: array[1..10] of integer;
o:array[1..10]of integer; {массив с значениями максимального приращения каждой строки}
begin
{вычисление значения приращения}
for i:=1 to n do begin
for j:=1 to m-1 do begin
x[j]:=a[i,j]-a[i,j+1];
end;
for ii:=1 to m-2 do begin
if x[ii]>x[ii+1] then
t:=x[ii]
else
t:=x[ii+1]
end;
{запись наибольшего значения приращения в массив}
o[i]:=o[i]+t;
end;
{нахождение и вывод максимального значения приращения}
for i:=1 to n-1 do begin
if o[i]>o[i+1] then
max:=i
else
max:=i+1
end;
writeln ('максимального значение приращения в строке №:',max);
for i:=1 to n do begin
write(a[max,i],' ')
end;
end;
begin
writeln ('введите кол-во строк');
readln(n) ;
writeln ('введите кол-во столбцов');
readln(m);
readmatr(a);
vichmin(a,min);
writeln;
vichmax(a,max);
end.

[Pascaler]

Тут никто фортран не знает чтоли?

[Serebro]

Сообщение от Pascaler

Тут никто фортран не знает чтоли?

Намного проще было бы написать, что требуется, чем разбираться в коде программы.