Дана целочисленная прямоугольная матрица

uses wincrt;
var
  x : array[1..10,1..10] of integer;
  i, j,
  m, n,
     k : byte;
     r : integer;
 
begin
 
 write('Razmer : '); readln(m,n);
 writeln('Massive :');
 
 for i:=1 to m do
    for j:=1 to n do
        read(x[i,j]);
 
 
 for j:=1 to n do
    for  i:=1 to m do
       if x[i,j] = 0                 {если элемент равен нулю}
          then                         {то}
              begin
                  inc(k);              {увеличиваем к на единицу}
                  break;               {выходим из цикла}
              end;
 
 writeln(k,' столбцов содержат хотябы один ноль.');
end.

__не__

uses wincrt;
var
  x : array[1..10,1..10] of integer;
 
  i, n,
  j, m,
  k, k1,
     R : byte;
 
 
begin
 
 write('razmer massiva : '); readln(m,n);
 writeln('vvedite massiv : ');
 
 for i:=1 to m do
 
 for j:=1 to n do
   read(x[i,j]);
 
 k:=0;
 k1:=0;
 for i:=1 to m do
    begin
        for J:=1 to n-1 do
            if x[i,j] = x[i,j+1]
               then
                  inc(k);
 
        if k > k1
           then
               begin
                    r := i;
                    k1 := k;
                    k := 0;
               end;
    end;
   inc(k1);
 
  writeln('v ',r,'-oi stroke naibolshee kolichestvo - ',k1);
end.