Помогите программу написать на паскале, пожалуйста

var i, j, n, m, sum, summaxi, maxi: integer;
a: array [1..100, 1..100] of integer;
begin
randomize;
n:=5;
m:=3;
maxi:=1;
summaxi:=0;
for i:=1 to n do
begin
sum:=0;
for j:=1 to m do
begin
a[i,j]:= random (10);
write (a[i,j]:2);
sum:=sum+a[i,j];
end;
writeln (sum:7);
if sum > summaxi then
begin
summaxi:=sum;
maxi:=i;
end;
end;
writeln ('Максимальная сумма в строке = ', maxi);
if maxi = n then writeln ('менять строки местами нет необходимости')
else
begin
for j:=1 to m do
begin
sum:=a[maxi, j];
a[maxi, j]:=a[n,j];
a[n,j]:=sum;
end;
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:2);
writeln;
end;
end;
end.

остальное попробуйсам, не получится - пиши
program massiv;
uses crt;
type matr= array[1..100,1..100] of integer;
procedure vvod(var c:matr; n,m:integer); //---------------------------------
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
c[i,j]:=random(101);
end; //----------------------------------------------------
procedure vivod( c:matr; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do
write(c[i,j]:3);
writeln; end;
end; //-------------------------------------------------
var
i,j,n,m:integer;
a:matr;
BEGIN
randomize;
clrscr;
writeln('Zadacha na massiv ');
writeln('---------------------------');
writeln;
write('Vvesti N and M: ');
readln(n,m);
writeln('Massiv A: ');
{ for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(101);
write(a[i,j]:3);
end;
writeln; end; }
vvod(a,n,m);
vivod(a,n,m);
end.

Что конкретно непонятно?