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

uses crt;
var r,xn,xk,h,x,y:real;
   k:integer;
begin
clrscr;
repeat
write('R>0 R=');
readln(r);
until r>0;
xn:=-r-2;
xk:=6;
h:=0.5;
clrscr;
writeln('Табулирование функции, заданной графиком:');
writeln('на интервале [',xn:0:1,';',xk:0:1,'] с шагом ',h:0:1);
writeln('---------------');
writeln('|  x  |   y   |');
writeln('---------------');
x:=xn;
k:=0;
while x<=xk do
 begin
  if x<=-r-1 then y:=1
  else if(x>-1-r)and(x<=-1) then y:=-sqrt(r*r-sqr(x+1))
  else if (x>-1) and(x<=2) then y:=-r
  else y:=x-4;
  writeln('|',x:4:1,' |',y:6:2,' |');
  k:=k+1;
  if k mod 20=0 then
   begin
    write('Нажмите Enter');
    readln
   end;
  x:=x+h;
 end;
writeln('---------------');
readln
end.