Вывести номера максимальных площадей

program treugolnik;
var l,i,j,p:integer;
s,maxs:real;
a:array[1..10] of integer;
b:array[1..10] of integer;
begin
 
randomize;
maxs:=0;
for i:=1 to 10 do
  begin
  write(i,' ');
  a[i]:=1+random(10);
  write(a[i],' ');
  b[i]:=1+random(10);
  write(b[i],' ');
  s:=1/2*a[i]*b[i];
  writeln(s:5:2);
  if s>maxs then 
    begin
    l:=0;
    maxs:=s;
    end;
  if maxs=s then inc(l);
  end;
writeln;
writeln('площадь=',maxs:5:2);
writeln('количество площадей=',l);
writeln('номера:');
end.

for i:=1 to n do
if s[i]=max then write(i,' ');

type trg=record
             a,b:integer;
             s:real;
             end;
var a:array[1..10] of trg;

for i:=1 to n do
if s[i]=max then write(i, ');

program treugolnik;
uses crt;
var a:array[1..10] of integer;
    b:array[1..10] of integer;
    i,maxs:integer;
    s:real;
begin
randomize;
writeln('Данные по треугольникам');
write('Номер:   ');
for i:=1 to 10 do
write(i:5);
writeln;
write('Катет А: ');
for i:=1 to 10 do
 begin
  a[i]:=1+random(10);
  write(a[i]:5);
 end;
writeln;
write('Катет B: ');
for i:=1 to 10 do
 begin
  b[i]:=1+random(10);
  write(b[i]:5);
 end;
writeln;
write('Площадь: ');
maxs:=0;
for i:=1 to 10 do
 begin
  s:=0.5*a[i]*b[i];
  write(s:5:1);
  if a[i]*b[i]>maxs then maxs:=a[i]*b[i]; //макс берем не площаь,
                                          //а произведение катетов, чтобы целое
                                          // для сравнения
 end;
writeln;
writeln('Максимальная площадь=',maxs/2:0:1);
writeln('Треугольники с максимальной площадью');
for i:=1 to 10 do
if a[i]*b[i]=maxs then
writeln('Номер=',i,' катет А=',a[i],'  катет B=',b[i]);
end.