Определить,если в данном массиве строка в которой имеется два максимальных элемента всего массива

program test;
uses crt;
var a,b,c:array[1..10] of integer;s:string;
i,j,k,l,m,p:integer;
begin
clrscr;
randomize;
j:=0;
k:=1;
writeln('Punkt 1');
for i:=1 to 10 do
begin
p:=0;
a[i]:=-1*random(40)+30;{1}
write(a[i],' ');
if abs(a[i])>10 then   {2}
if (abs(a[i]) mod 10)<>(abs(a[i]) div 10) then
begin
inc(j);
b[j]:=a[i];
end;
str(abs(a[i]),s);     {3}
for l:=1 to length(s) do
if s[l]='1' then p:=1;
if p=1 then
begin
s:='1'+s;
val(s,c[i],m);
end
else c[i]:=a[i];
end;
writeln;
writeln('punkt 2');
for i:=1 to j do
write(b[i],' ');
writeln;
writeln('Punkt 3');
for i:=1 to 10 do
write(c[i],' ');
for i:=1 to 3 do        {4}
begin
j:=a[i];
a[i]:=a[i+7];
a[i+7]:=j;
end;
writeln;
writeln('Punkt 4');
for i:=1 to 10 do
write(a[i],' ');
readln;
end.

program massiv;
var
mas:array[1..100,1..100] of integer;
i,j,max:integer;
n,m,kol,index:integer;
begin
  randomize;
  writeln('введите размерность массива через пробел ');readln(n,m);
  max:=mas[1,1];
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      mas[i,j]:=random(11)-5;
      write(mas[i,j]:4);
      if mas[i,j]>=max then max:=mas[i,j];
    end;
    writeln;
  end;
  writeln('максимальный элемент равен ',max);
    kol:=0;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if mas[i,j]=max then
      begin
        kol:=kol+1;
        if kol=2 then
        begin
          index:=i;
          writeln('два максимальных элемента в ',index,' -ой строке');
        end;
      end;
    end;
  end;
  readln;
end.

a[i]:=random(70)-40;{1}