На вход программе целые числа x и y,необходимо уменьшить на 100 то число которое является трехзначным.и увеличить в 10 раз то число которое является меньше ста

Program n1;
function thg(var t: real): boolean;
begin
thg:=false;
if (t>=100) and(t<1000) then thg:= true;
end;
var x,y: real;
begin
readln(x,y);
if thg(x) then x:=x-100;
if thg(y) then y:=y-100;
if x<100 then x:=x*10;
if y<100 then y:=y*10;
writeln(x,' ',y);
end.