В строке матрицы, которая содержит не более двух положительных элементов, найти наибольший элемент

{В строке матрицы (матрица не квадратная), который содержит не более двух
положительных элемента, найти наибольший элемент. Если такой строке нет,
то вывести сообщение "Not"}
const
  n=5;
  m=6;
var
  a:array [1..n,1..m] of integer;
  k,i,j,max:integer;
  yes:boolean;
begin
  randomize;
  for i:=1 to n do
    begin
      max:=a[i,1];  k:=0; yes:=false;
      for j:=1 to m do
        begin
          a[i,j]:=Integer(random(n*m) - n*m div 2);
          write(a[i,j]:4);
          if a[i,j]>max then
            max:=a[i,j];
          if a[i,j]>0 then
            inc(k);
        end;
        if k<=2 then
          write(max:5)
        else
          write('not':5);
      writeln;
    end;
  readln;
end.

{В строке матрицы (матрица не квадратная), который содержит не более двух
положительных элемента, найти наибольший элемент. Если такой строке нет,
то вывести сообщение "Not"}
var
  a:array [1..100,1..100] of integer;
  k,i,j,max:integer;
  n,m:integer;
  yes:boolean;
begin
  randomize;
  write('Введите размерность матрицы (n,m): ');  readln(n,m);
  for i:=1 to n do
    for j:=1 to n do
      readln(a[i,j]);
 
  writeln('Исходная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
      writeln;
    end;
  yes:=true;
  for i:=1 to n do
    begin
      max:=a[i,1];  k:=0;
      for j:=1 to m do
        begin
          if a[i,j]>0 then
            inc(k);
          if a[i,j]>max then
            max:=a[i,j];
        end;
        if k<=2 then
          write(i,'-я строка: ',max:5)
        else
          begin
            yes:=false;
          end;
      writeln;
    end;
  if not yes then
    writeln('not':5);
  readln;
end.

{В строке матрицы (матрица не квадратная), который содержит не более двух
положительных элемента, найти наибольший элемент. Если такой строке нет,
то вывести сообщение "Not"}
var
  a:array [1..100,1..100] of integer;
  k,i,j,max:integer;
  n,m:integer;
  esc,yes:boolean;
begin
  randomize;
  write('Введите размерность матрицы (n,m): ');  readln(n,m);
  for i:=1 to n do
    for j:=1 to n do
      readln(a[i,j]);
 
  writeln('Исходная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
      writeln;
    end;
  yes:=true;
  for i:=1 to n do
    begin
      yes:=true;
      max:=a[i,1];  k:=0;
      for j:=1 to m do
        begin
          if a[i,j]>0 then
            inc(k);
          if a[i,j]>max then
            max:=a[i,j];
        end;
        if k<=2 then
          begin
            write(i,'-я строка: ',max:5);
            esc:=true;
          end
        else
          begin
            yes:=false;
          end;
      writeln;
      if esc then
        break;
    end;
  if not yes then
    writeln('not':5);
  readln;
end.

{В строке матрицы (матрица не квадратная), который содержит не более двух
положительных элемента, найти наибольший элемент. Если такой строке нет,
то вывести сообщение "Not"}
var
  a:array [1..100,1..100] of integer;
  k,i,j,max:integer;
  n,m:integer;
  esc,yes:boolean;
begin
  randomize;
  write('Введите размерность матрицы (n,m): ');  readln(n,m);
  for i:=1 to n do
    for j:=1 to n do
      readln(a[i,j]);
 
  writeln('Исходная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
      writeln;
    end;
  yes:=true;
  for i:=1 to n do
    begin
      yes:=true;
      max:=a[i,1];  k:=0;
      for j:=1 to m do
        begin
          if a[i,j]>0 then
            inc(k);
          if a[i,j]>max then
            max:=a[i,j];
        end;
        if k<=2 then
          begin
            write(i,'-я строка: ',max:5);
            esc:=true;
          end
        else
          begin
            yes:=false;
          end;
      writeln;
      if esc then
        break;
    end;
  if not yes then
    writeln('not':5);
  readln;
end.