Номер максимального по модулю элемента массива

program vad2211;
uses crt;
var
   a:array[1..100] of integer;
   i,n,max:integer;
begin
 clrscr;
 randomize;
 repeat
  write('Ðàçìåðíîñòü: ');
  readln(n);
 until n in [1..100];
 writeln('Ìàññèâ');
 for i:=1 to n do
  begin
   a[i]:=random(200)-100;
   write(a[i]:6);
  end;
 writeln;
 max:=1;
 for i:=1 to n do
  if abs(a[i])>abs(a[max]) then max:=i;
 writeln('|max| = ',a[max]);
 writeln('Index - ',max);
 readln;
end.

uses crt;
var
a:array[1..100]of real;
i,j,a1,b,n,pos:integer;
max,temp:real;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
for i:=1 to n do
write(a[i]:2:2,'  ');
max:=abs(a[1]);
for i:=1 to n do
if abs(a[i])>max then
 begin
  max:=abs(a[i]);
  pos:=i;
 end;
writeln;
writeln('max=',max:2:2,' in pos=',pos);
writeln;
write('A='); read(a1);
write('B='); read(b);
if a1<b then
 begin
  for i:=1 to n do
  for j:=1 to n-1 do
   if (a[j]>=a1)and(a[j]<=b) then
    begin
     temp:=a[j];
     a[j]:=a[j+1];
     a[j+1]:=temp;
    end;
 end;
if a1>b then
 begin
  for i:=1 to n do
  for j:=1 to n-1 do
   if (a[j]>=b)and(a[j]<=a1) then
    begin
     temp:=a[j];
     a[j]:=a[j+1];
     a[j+1]:=temp;
    end;
 end;
for i:=n downto 1 do
write(a[i]:2:2,'  ');
readkey;
end.