Дан массив 8х8. Записать в другой массив максимальные элементы каждой строки, которые стоят на главной диагонали — Pascal(Паскаль)

program PascalGuru;

var
  A: array [1 .. 8, 1 .. 8] of integer;
  B: array [1 .. 8] of integer;
  i, j, k: integer;

begin

  for i := 1 to 8 do
    for j := 1 to 8 do
      A[i, j] := 2 + random(26); { begin
    write ('A[',i,',',j,']='); readln (A[i,j]); end; }

  write('Vot vvedennaya vami matrica A:');
  for i := 1 to 8 do
  begin
    writeln;
    for j := 1 to 8 do
      write(A[i, j]:8, ' ');
  end;

  k := 0;
  for i := 1 to 8 do
    for j := 1 to 8 do
      if i = j then
      begin
        inc(k);
        B[k] := A[i, j];
      end;

  writeln;
  writeln;
  writeln('Otvet:');
  for i := 1 to 8 do
    write(B[i]:8, ' ');

  readln;