Дано целое число n и набор из n чисел. найдите номер первого наибольшего и номер последнего наименьшего числа в наборе. ввод целое число n и набор из n чисел в одной строке. вывод номер первого наибольшего и номер последнего наименьшего числа в наборе. ввод 10 4 3 1 7 9 1 9 2 5 6 вывод 5 6

Program bistro;
var i,mi,ma,a1,a2,a,n:integer;
begin 
  read(n); 
  mi:=1; 
  ma:=1; 
  read(a); 
  a1:=a; 
  a2:=a; 
  for i:=2 to n do   
     begin     
       read(a);     
       if a > a1     
       then begin           
                ma:=i;           
                a1:=a;           
              end;     
        if a <= a2   
        then begin         
                 mi:=i;           
                 a2:=a;         
               end;   
     end; 
  writeln(ma,' ',mi);
end.

Program z1;
var 
a:array [1..100] of integer;
i,n,max,min: integer;
begin
writeln ('vvedite n');
readln(n);
max:=0;
min:=1000;
for i:=1 to n do
begin
 readln a[i];
end;
for i:=1 to n do
begin
 if a[i]>max
then max:=a[i]
end;
begin
 if a[i]>min
then min:=a[i]
end;
writeln (max,min);
end.