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

function f(x,r1,r2:real):real;
begin
if x<=-2*r1 then f:=-x-2
else if x<=0 then f:=sqrt(r1*r1-sqr(x+r1))
else if x<=2*r2 then f:=-sqrt(r2*r2-sqr(x-r2))
else if x<=2*r2+2 then f:=-0.5*x+2
else f:=-1
end;
var r1,r2,x,xn,xk,dx:real;
begin
repeat
write('Радиус r1>0 r1=');
readln(r1);
until r1>0;
repeat
write('Радиус r2>0 r2=');
readln(r2);
until r2>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;
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:5:1,'|',f(x,r1,r2):6:2,' |');
  x:=x+dx
 end;
writeln('---------------');
end.