Вычислить и вывести на экран в виде таблицы значения функции, заданной графически

uses crt;
function f(x,r:real):real;
begin
if x<=-r then f:=x+r
else if x<=0 then f:=sqrt(r*r-x*x)
else if x<=2*r then f:=-0.5*x+r
else f:=x-2*r
end;
var r,xn,xk,dx,x:real;
begin
clrscr;
repeat
write('Введите радиус R>0 r=');
readln(r);
until r>0;
write('Введите начало интервала xn=');
readln(xn);
repeat
write('Введите конец интервала xk>',xn:0:1,' xk=');
readln(xk);
until xk>xn;
repeat
write('Введите шаг табуляции dx<',xk-xn:0:1,' dx=');
readln(dx);
until dx<xk-xn;
clrscr;
writeln('Табуляция функции, заданной графически');
writeln('на интервале [',xn:0:1,';',xk:0:1,'] с шагом ',dx:0:1);
writeln('        ---------------');
writeln('        |  x  |   y   |');
writeln('        ---------------');
x:=xn;
while x<xk+dx/2 do
 begin
  writeln('        |',x:4:1,' |',f(x,r):6:3,' |');
  x:=x+dx;
 end;
writeln('        ---------------');
readln
end.