Блок-схемы. 2 штуки

uses Crt;
var
a,b: array [0..49] of integer;
i,j: integer;
begin
Randomize;
for i:=0 to 49 do a[ i ]:=Random(10);
write('a[0]=',a[ 0 ]); for i:=1 to 49 do write(', a[',i,']=',a[ i ]); writeln;
for i:=0 to 49 do if a[ i ]=0 then begin b[ j ]:=i; j:=j+1 end;
if j <> 0 then write(b[ 0 ]);
for i:=1 to j-1 do write(', ',b[ i ]); writeln;
end.

uses crt;
const nmax=20;
type mas=array [1..nmax] of integer;
matr=array[1..nmax] of mas;
procedure Vvod(var mt:matr;var x,y:byte);
var i,j:byte;
begin
write('Количество строк до ',nmax,' = ');
readln(x);
Write('Количество столбцов до ',nmax,' = ');
readln(y);
writeln('Матрица:');
for i:=1 to x do
begin
for j:=1 to y do
begin
mt[i,j]:=random(20);{если в Паскаль АВС то писать mt[i][j]}
write(mt[i,j]:4);
end;
writeln;
end;
end;
function Summ(v:mas;y:byte):integer;
var i:byte;
s:integer;
begin
s:=0;
for i:=1 to y do
s:=s+v[i];
Summ:=s;
end;
procedure MinMax(mt:matr;x,y:byte);
var i,j,imn,imx:byte;
mx,mn:integer;
begin
mn:=Summ(mt[1],y);
mx:=mn;
imn:=1;
imx:=1;
for i:=1 to x do
begin
if Summ(mt[i],y)<mn then
begin
mn:=Summ(mt[i],y);
imn:=i;
end;
if Summ(mt[i],y)>mx then
begin
mx:=Summ(mt[i],y);
imx:=i;
end;
end;
writeln('Строка с минимальной суммой:');
for i:=1 to y do
write(mt[imn,i]:4);
writeln;
writeln('Сумма=',Summ(mt[imn],y));
writeln;
writeln('Строка с максимальной суммой:');
for i:=1 to y do
write(mt[imx,i]:4);
writeln;
writeln('Сумма=',Summ(mt[imx],y));
end;
 
Var a:matr;
n,m:byte;
begin
clrscr;
randomize;
Vvod(a,n,m);
MinMax(a,n,m);
readln;
end.