Задача на рекурсию

type  pole=array[1..30,1..20]of integer;
function ryad(a:pole;k,m:integer):integer;
begin
if m=1 then ryad:=a[k,1] else ryad:=ryad(a,k,m-1)+a[k,m];
end;
function uroz(a:pole;n,m:byte):integer;
begin
if n=1 then uroz:=ryad(a,n,m)
else uroz:=uroz(a,n-1,m)+ryad(a,n,m);
end;
var a:pole;
    b:array[1..30] of integer;
    m,n,i,j,k,imx,max,x:integer;
begin
randomize;
n:=30;
m:=20;
writeln('Исходное поле');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(9);
    write(a[i,j]:2);
   end;
  writeln;
 end;
writeln('Урожай с поля в картофелинах=',uroz(a,n,m));
max:=0;
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to m do
  k:=k+a[i,j];
  b[i]:=k;
  if k>max then
   begin
    max:=k;
    imx:=i;
   end;
 end;
writeln('Наиболее урожайный рядок ',imx,'  количество картофелин=',max);
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]>b[j] then
 begin
  x:=b[i];
  b[i]:=b[j];
  b[j]:=x;
  for k:=1 to m do
   begin
    x:=a[i,k];
    a[i,k]:=a[j,k];
    a[j,k]:=x;
   end;
 end;
writeln('Поле в порядке возрастания урожайности рядков');
writeln('урожайность':m*2+12);
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:2);
  writeln(b[i]:8);
 end;
end.