Как на языке pascalabc выписать квадрат минимальной и максимальной цифры в трехзначном числе введенного с клавиатуры? желательно с объяснениями вне программы и чтобы работало с отрицательными числами. желательно с объяснениями, т.к. в ещё много подобных . а вне программы чтобы не вырезать вставки. заранее .15 .

Uses crt;
var a,max,x,min:integer;
begin clrscr;
write('Vvedite chislo: '); readln(a);
a:=abs(a);
max:=a mod 10;
min:=a mod 10;
while a>0 do  begin 
x:=a mod 10; 
a:=a div 10; 
if x>max then max:=x; 
if x<min then min:=x; 
end;
writeln('Max^2: ',sqr(max));
writeln('Min^2: ',sqr(min));
readln;
end.