На главной диагонали матрицы найти наибольший из всех элементов строки

program func;
const N=10;
var
  a:array[1..N,1..N] of integer; //исходная матрица
  b:array[1..N] of integer;      //массив для результатов
  i, j, k, nmax:integer; //nmax - номер максимального
begin
  k:=1;
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(20)-10;
  while(k<=10)do
  begin
    if a[k,k]<0 then
    begin
      nmax:=1;
      for i:=2 to n do
        if a[k,i]>a[k,nmax] then
          nmax:=i;
      b[k]:=a[k,nmax];
    end;
  inc(k);
  end;
end.

program func;
uses
  crt;
const
  n=10;
var
  A:array[1..n,1..n] of Real;
  B:array[1..N] of Real;
  i, j, k, nmax:integer;
begin
  ClrScr;
  Randomize;
  Writeln('Матрица А');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      A[i,j]:=random(21)-10.0;
      Write(A[i,j]:5:1)
    end;
    Writeln;
  end;
  k:=1;
  while k<=10 do
  begin
    if A[k,k]<0 then
    begin
      nmax:=1;
      for i:=2 to n do
        if A[k,i]>A[k,nmax] then nmax:=i;
      B[k]:=A[k,nmax];
    end;
    Inc(k);
  end;
  Writeln('Массив В');
  for i:=1 to n do
    Write(B[i]:5:1);
  Readln;
 end.

program func;
 const N=10;
 var
 a:array[1..N,1..N] of integer; //исходная матрица
 b:array[1..N] of integer; //массив для результатов
 i, j, k, nmax:integer; //nmax - номер максимального
 
begin
 k:=1;
 for i:=1 to n do
 for j:=1 to n do
 a[i,j]:=random(20)-10;
 
 while(k<=10)do
 begin
 if a[k,k]<0 then
 
 begin
 nmax:=1;
 for i:=2 to n do
 if a[k,i]>a[k,nmax] then
 nmax:=i;
 b[k]:=a[k,nmax];
 end;
 
 inc(k);
 end;
 
 end.