Дан двумерный массив целых чисел. Определить максимальное значение среди элементов пятой строки массива - Pascal ABC

const nmax=30;
var a: array[1..nmax,1..nmax] of integer;
i,j,n,max:integer;  
begin
  write('Введите n: ');  
  readln(n);
  if (n<5) then writeln('Размерность матрицы не соответствует условию')
  else
  begin
    writeln('Введите матрицу: ');
    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],' ');
      writeln;
    end;
    
    max:=a[5,1];
    for j:=1 to n do
      if (a[5,j]>max) then max:=a[5,j];
    
    writeln('Максимальный элемент 5-й строки = ',max);
  end;
end.