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

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.