Паскаль - матрица

uses crt;
function Vz_prost(a,b:integer):boolean;{взаимно простые числа}
function NOD(a,b:integer):integer;{нахождение НОД}
var m,n:integer;
begin
m:=a;
n:=b;
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
begin
if NOD(a,b)=1 then Vz_prost:=true{если НОД=1, вз. простые}
else Vz_prost:=false;
end;
var a:array[1..20,1..20] of integer;
    b:array[1..400] of integer;
    n,m,i,j,mn,mx,k,x:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
write('m');readln(m);
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(30)+5;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
mn:=a[1,1];mx:=a[1,1];
for i:=1 to n do
for j:=1 to m do
 begin
  if a[i,j]<mn then mn:=a[i,j];
  if a[i,j]>mx then mx:=a[i,j];
 end;
writeln('Минимальный=',mn,'  максимальный=',mx);
writeln;
k:=0;
for i:=1 to n do
for j:=1 to m do
if Vz_prost(a[i,j],mn)and  Vz_prost(a[i,j],mx) then{если вз.прост. с мин. и макс.}
 begin
  k:=k+1;
  b[k]:=a[i,j];{записываем в вектор}
 end;
if k=0 then writeln('Взаимно простых с макс. и мин. нет!')
else
 begin
  writeln('Массив взаимно простых:');
  for i:=1 to k do
  write(b[i],' ');
  writeln;
  writeln;
  for i:=1 to k-1 do
  for j:=i+1 to k do
  if b[i]>b[j] then
   begin
    x:=b[i];
    b[i]:=b[j];
    b[j]:=x;
   end;
   writeln('Массив после сортировки:');
   for i:=1 to k do
   write(b[i],' ');
 end;
readln
end.

uses crt;
var a:array[1..20,1..20] of integer;
    b:array[1..20] of boolean;
    n,m,i,j,k:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
write('m');readln(m);
writeln('Введите элементы матрицы:');
for i:=1 to n do
for j:=1 to m do
 begin
  write('a[',i,',',j,']=');{вводим вручную что получить несколько строк по возрастанию}
  readln(a[i,j]);
 end;
clrscr;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
writeln;
for i:=1 to n do
 begin
  k:=0;
  for j:=2 to m do
  if a[i,j]>a[i,j-1] then k:=k+1;{если элементы возрастают, считаем}
  b[i]:=(k=m-1);{если условие верно-true, нет-false}
 end;
writeln('Массив B:');
for i:=1 to n do
write(b[i],' ');
readln
end.