Заменить последний нуль в каждой строке матрицы на 5

Program M5;  
 const n=5; m=5;
 var
  A: array[0..10, 0..10] of integer;
  j, i: integer;
begin
  for i := 1 to n do
begin
  for j := 1 to m do
begin
  write('a[', i,',',j,']=');
  read(a[i, j]);
end;
end;
begin
  for i:=1 to n do
  if (a[i,5]=0) then a[1,j]:=5;
   begin
  for i := 1 to n do
  for j := 1 to m do
    begin
  write(a[i, j],' ');
  readln;  end;   end;  end;
end.

program M5;
 
const
  n = 5; // вторая переменная ни к чему
 
var
  A: array[1..n, 1..n] of integer; // размеры до 10 тоже лишнее
  j, i: integer;
 
begin
  for i := 1 to n do
  begin
    for j := 1 to n do 
    begin
      write('a[', i, ',', j, ']=');
      read(a[i, j]);
    end;
  end;
  
  for i:=1 to n do // с каждой строкой проделываем следующее:
    for j:=n downto 1 do // проходим от конца строки к началу
      if a[i,j]=0 then // если элемент равен нулю, то..
      begin
        a[i,j]:=5; // присваиваем ему значение 5
        break; // выходим из цикла и переходим на другую строку
      end;
      
  writeln('Полученная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
end.