Написать программу, которая находит наименьшее и наибольшее абсолютное значение среди трех заданных чисел — Pascal(Паскаль)

const
  N=3;
var
  a:array[1..N] of integer;
  min,max,i:integer;
begin
  for i:=1 to N do
    ReadLn(a[i]);
  min:=1;
  max:=1;
  for i:=2 to N do
  begin
    if abs(a[i])>abs(a[max]) then
      max:=i;
    if abs(a[i])<abs(a[min]) then
      min:=i
  end;
  writeln('max:=',a[max],' min:=',a[min]);
  ReadLn
end.

var a,b,c,mx,mn:integer;
begin
readln(a);
readln(b);
readln(c);
mx:=abs(a);
if abs(b)>mx then mx:=abs(b);
if abs(c)>mx then mx:=abs(c);
mn:=abs(a);
if abs(b)<mn then mn:=abs(b);
if abs(c)<mn then mn:=abs(c);
writeln('max:', mx);
writeln('min:', mn);
end.