Таблица значений функции - Pascal ABC

Формулировка задачи:

Написать программу, которая вычисляет и выводит на экран в виде таблицы значения функции, заданной графически, на интервале от Xнач до Xкон с шагом dx. Параметр R вводится с клавиатуры. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой. Пожалуйста помогите мнеее!!! буду рад любой помощи

Решение задачи: «Таблица значений функции»

Листинг программы

var r,xn,xk,x,h,y:real;
begin
repeat
write('Введите R>0 r=');
readln(r);
until r>0;
xn:=-4.5*r;
xk:=pi+2;
h:=0.5;
x:=xn;
writeln('Таблица вычислений значений функции, заданной графически');
writeln('на интервале [',xn:0:1,',',xk:0:1,'] с шагом ',h:0:2);
writeln('-------------');
writeln('|  x  |  y  |');
writeln('-------------');
while x<=xk do
 begin
  if x<=-2.5*r then y:=-sqrt(r*r-sqr(x+3.5*r))+r
  else if x<=-2*r then y:=r
  else if x<=0 then y:=-0.5*x
  else if x<=pi then y:=sin(x)
  else if x<=xk then y:=x-pi;
  writeln('|',x:5:1,'|',y:5:2,'|');
  x:=x+h;
 end;
writeln('-------------');
end.

Объяснение кода листинга программы

Создаются переменные r, xn, xk, x, h и y, которые представляют собой входные данные и параметры функции.
В цикле repeat-until выполняется запрос ввода значения переменной r.
Значение переменной r сохраняется в xn, а также вычисляется значение xk как pi плюс 2 и значение h как 0.5.
Вычисляется значение x как xn минус 4.5*r.
Выводится таблица значений функции на интервале [xn, xk] с шагом h.
Выводится заголовок таблицы значений функции.
Запускается цикл while, который выполняется, пока x меньше или равно xk.
Внутри цикла while проверяется значение x. Если x меньше -2.5r, то вычисляется значение y как -sqrt(rr-sqr(x+3.5*r))+r.
Если x меньше -2*r, то значение y устанавливается равным r.
Если x меньше 0, то значение y устанавливается равным -0.5*x.
Если x меньше или равно pi, то значение y устанавливается равным sin(x).
Если x больше или равно xk, то значение y устанавливается равным x-pi.
Выводится значение x и y в формате | x | y |.
Значение x увеличивается на h.
Цикл while повторяется, если значение x меньше или равно xk.
Выводится заключительный заголовок таблицы значений функции.