Сортировка

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b,c:array[1..nmax*nmax] of integer;
    m,n,i,j:byte;
    f:boolean;
    kb,kc:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' n=');
read(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
read(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
kb:=0;
kc:=0;
for i:=1 to n do
 begin
  f:=false;
  j:=1;
  while (j<=m)and not f do
  if a[i,j]=0 then f:=true
  else j:=j+1;
  if f then
   for j:=1 to m do
     begin
      kb:=kb+1;
      b[kb]:=a[i,j];
     end
   else
    for j:=1 to m do
     begin
      kc:=kc+1;
      c[kc]:=a[i,j];
     end;
 end;
if kb=0 then writeln('Нет строк, содержащих ноли')
else
 begin
  writeln('Элементы строк с нолями:');
  for i:=1 to kb do
  write(b[i],' ');
  writeln;
 end;
if kc=0 then writeln('Нет строк, не содержащих ноли')
else
 begin
  writeln('Элементы строк без нолей:');
  for i:=1 to kc do
  write(c[i],' ');
  writeln;
 end;
end.