протабулировать функцию

[felmor]

очень надеюсь на вашу помощь

[Teor]

program tab;
uses crt;
var x,y:real;
begin
clrscr;
x:=0;
write ('  x         y');
writeln;
repeat
x:=x+0.3;
if (x>=0) and (x<=4) then
y:=abs(x-2) else y:=2;
writeln (x:5:2,'    ',y:5:2);
until x>4.7;
readkey
end.