Вывести на экран максимальное значение в каждой строке матрицы

program matrixProcessing;
const MaxN = 100;
var a: array [1..MaxN,1..MaxN] of real;
    i,j,n: integer;
    max: real;
BEGIN
  // Ввод можно осуществлять по разному, вот я использовал такой
  // Запрашиваем размер матрицы
  write('Enter n: ');
  readln(n);
  // Говорим, что нужно ввести елементы матрицы
  write('Enter ',n*n, ' elements of matrix');
  // Считываем введённые элементы матрицы
  for i := 1 to n do
    for j := 1 to n do
    begin
      read(a[i,j]);
    end;
 
  writeln;
  // Проходим по всем строчкам матрицы
  for i:=1 to n do
  begin
    // Принимаем первый элемент строки за максимальный пока что найденный элемент
    max := a[i,1]; 
    // Проходим по всем элементам строки начиная со второго, 
    // и сравниваем их с максимальным пока что найденным
    for j := 2 to n do
    begin
     // если текущий элемент строки больше за максимальный пока что найденный
     // то обновляем значение максимального пока что найденного элемента
      if a[i,j] > max then max := a[i,j]
    end;
    // Мы прошлись по всем элементам, а значит
    // максимальный пока что найденный и есть максимальный
    // элемент строчки, выводим его
    writeln('Max in ',i,' row is ', max:0:3);
    // переходим к следующей строке, если таковая есть
  end;
END.