Ввести А, последний нулевой элемент каждой строки заменить на А

begin
  var Rows := ReadLnInteger('  Строк = ');
  var Cols := ReadLnInteger('Колонок = ');
  
  WriteLn('Сгенерирован массив случайных чисел:');
  Randomize;
  var a : array [,] of Integer; SetLength(a, Rows, Cols);
  
  for var Row := 0 to Rows-1 do
    begin
      for var Col := 0 to Cols-1 do
        begin
          a[Row, Col] := Random(-10, +10);
          Write(a[Row, Col]:3);
        end;
      WriteLn;
    end;
    
  var А := ReadLnInteger('A =');
  WriteLn('Обработанный массив:');
  for var Row := 0 to Rows-1 do
    begin
      var Col := Cols-1;
      while (Col > -1) and (a[Row, Col] <> 0) do
        Col -= 1;
      if Col > -1 then
        a[Row, Col] := А;
      for Col := 0 to Cols-1 do
        Write(a[Row, Col]:3);
      WriteLn;
    end;
end.

begin
  var Rows := ReadLnInteger('  Строк = ');
  var Cols := ReadLnInteger('Колонок = ');
  
  WriteLn('Сгенерирован массив случайных чисел:');
  Randomize;
  var arr : array [,] of Integer; SetLength(arr, Rows, Cols);
  
  for var Row := 0 to Rows-1 do
    begin
      for var Col := 0 to Cols-1 do
        begin
          arr[Row, Col] := Random(-10, +10);
          Write(arr[Row, Col]:3);
        end;
      WriteLn;
    end;
    
  var A := ReadLnInteger('A =');
  WriteLn('Обработанный массив:');
  for var Row := 0 to Rows-1 do
    begin
      var Col := Cols-1;
      while (Col > -1) and (arr[Row, Col] <> 0) do
        Col -= 1;
      if Col > -1 then
        arr[Row, Col] := A;
      for Col := 0 to Cols-1 do
        Write(arr[Row, Col]:3);
      WriteLn;
    end;
end.