Если все элементы строки матрицы равны между собой, все элементы строки заменить нулями

Var A:array[1..20,1..20] of integer;
    i,j,k,n,m,p:integer;
    b:=true;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    p:=0;
    For i:=1 to n do {Заполняем матрицу случайными числами и выводим}
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=Random(11)-5;
        write(A[i,j]:3);
       End;
      writeln;
     End;
    For i:=1 to n do {В цикле проверяем каждый элемент первой строки с элементами следующей строки}
     Begin {И таким образом проверяем сначала первую затем вторую и т.д}
      For j:=1 to n do {Вот цикл для проверки строки из первого цикла со следующими строками}
       Begin
        if i<>j then {Если номера строк не совподают то заходим}
         Begin
          b:=true;k:=0;
          While (k<m)and(b) do {Пока элементы строки не кончились или b не стало ложью выполняем}
           Begin
            inc(k);
            if A[i,k]<>A[j,k] then b:=false;{Если какой то элемент строки отличен от другого элемента строки то b false и выходим из цикла}
           End;
          if b then {Если b всё ещё true т.е все элементы одинаковые то обнуляем строку}
           Begin
            For k:=1 to m do {Само обнуление строки}
             A[j,k]:=0;
            inc(p);{Счетчик для того чтобы узнать были ли такие строки}
           End;
          End;
       End;
      End;
     if p<>0 then
      Begin
       writeln('Преоброзованная');
       For i:=1 to n do {Вывод того что получилось}
        Begin
         For j:=1 to m do
          write(A[i,j]:3);
         writeln;
        End;
      End
       else writeln('Нет таких строк!');
     readln;
End.