Mit számol a következő algoritmus?

Próbáltam beírni Pascalba, de eleve nem tudom, mit hajtana végre a program, így nehéz mondjuk bemeneti fájlt is létrehozni.

var t: array[1..10, 1..10] of integer;

st, ot: array[1..10] of real;

n,m,i,j: integer;

begin

for i:=1 to n do begin

st[i]:=0;

for j:=1 to m do

st[i]:=st[i]+t[i,j];

st[i]:=st[i]/m;

end;{for i}

for j:=1 to m do begin

ot[j]:=0;

for i:=1 to n do

ot[j]:=ot[j]+t[i,j];

ot[j]:=ot[j]/n;

end;{for j}

for i:=1 to n do write(st[i]:0:2,' ');

for j:=1 to m do write(ot[j]:0:2,' ');

end;

Sajnos szorít az idő, még ezer mást is meg kell csinálnom ma. Remélem, valami profibb emberke tud nekem segíteni. Köszönöm!