begin

 var a := MatrRandom(5, 5, -10, 10);

 a.Println;

 var k :=

     a.Rows  // выбрать строки

     .Select(row -> row.Count(p -> p < 0))  // кол-во отриц.

     .ToArray  // записать в массив

     .IndexMax; // найти индекс максимального значения

 Print('Максимум отрицательных в строке номер', k + 1)    

end.

Ответ:

const n=5;

var a:array [1..n,1..n] of integer;

i,j,k,max:integer;

begin

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(21)-10;

write(a[i,j]:5)

end;

writeln;

end;

max:=0;

for i:= 1 to n do

begin

k:=0;

for j:=1 to n do if a[i,j]<0 then k:=k+1;

if k>max then max:=k

end;

if max=0 then writeln ('Нет строк с отрицательными элементами')

else

begin

for i:= 1 to n do

begin

k:=0;

for j:=1 to n do if a[i,j]<0 then k:=k+1;

if k=max then writeln ('Строка, в которой находится наибольшее количество отрицательных элементов ',i)

end

end

end.