Стандартная функция определения абсолютной величины числа

var a,b,psum:real;
begin
psum:=0;
writeln('введите 2 числа');readln(a,b);
if a<0 then
a:=a*(-1);// модуль числа а
if b<0 then// модуль числа b
b:=b*(-1);
psum:=(a+b)/2;
writeln('полусумма абсолютных величин 2-х чисел =',psum:3:3);
writeln('корень произведения абсолютных величин 2-ч чисел =', sqrt(a*b):3:3);
end.

var x,y,i,rez:integer;
m:char;
begin
repeat
write('x=');read(x);
write('y=');read(y);
writeln('ввод № действия');read(i);
case i of
1: begin rez:=x+y; write(x,'+',y,'=',rez) end;
2: if x>y then begin rez:=x-y; write(x,'-',y,'=',rez);end
     else writeln('не могу вычесть!');
3: begin rez:=x*y; write(x,'*',y,'=',rez) end;
4: if x>y then begin rez:=x div y; write(x,'/',y,'=',rez); end
     else writeln('не могу разделить!');
end;
writeln('продолжаем?(Y/N)');readln(m);
until ((m<>'n')or(m<>'N'));
end.