Перевод с Паскаля на Фортран

[BananaGalaxy]

К завтрашнему дню нужна данная программа на фортране. Цена договорная. Email: Daria.lany@yandex.ru

uses crt;
const
    m = 5;
    n = 6;
    z=32767;
 
var
    a: array[1..m,1..n] of byte;
    s: array[1..z] of integer;
    i,j,k,t,p, sum,d: integer;
 
begin
    randomize;
 
    for i := 1 to m do begin
        for j := 1 to n do begin
            a[i,j] := random(99);
            write (a[i,j]:3);
            s[i]:=s[i]+a[i,j];
        end;
        write('сумма',s[i]);
        writeln;
    end;
     writeln;
     writeln;
     writeln;
 
     for k:=1 to m do begin
     for i:=2 to m do begin
     if s[i]<s[i-1]
     then begin
     for j:=1 to n do begin
     t:=a[i,j];
     a[i,j]:=a[i-1,j];
     a[i-1,j]:=t;
     end;
     t:=s[i];
     s[i]:=s[i-1];
     s[i-1]:=t;
     end;
     end;
     end;
 
     
    for i:=1 to m do begin
    s[i]:=0;
    for j:=1 to n do begin
    write(a[i,j]:3);
    s[i]:=s[i]+a[i,j];
    end;
    write('сумма',s[i]);
    writeln;
    end;
    writeln();
    writeln();
 
 
 
    end.