Написать программу в паскале и составить блок схему

uses crt;
var i, j, m, n, i_max: byte;
a: array [1..11, 1..11] of byte;
begin
write ('m = ');
readln (m);
write ('n = ');
readln (n);
i_max:=1;
{ввод}
for i:=1 to m do
begin
for j:=1 to n do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
a[i,n+1]:=a[i,n+1]+a[i,j];
end;
if a[i,n+1] > a[i_max,n+1] then i_max := i;
end;
{вывод}
clrscr;
for i:=1 to m do
begin
for j:=1 to n do write (a[i,j]:2);
writeln;
end;
writeln ('_'*2*n) ;
if i_max = m then writeln ('Менять строки не имеет смысла.')
else
begin
for j:=1 to n do
begin
a[m+1,j]:=a[i_max, j];
a[i_max, j]:=a[m,j];
a[m,j]:=a[m+1,j];
end;
for i:=1 to m do
begin
for j:=1 to n 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.