Составить блок-схему и программу для вычисления значения функции U при заданных значениях x и y - Free Pascal

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

Добрый день! Нужна помощь в решение задачи. Требуется : Составить блок-схему и программу для вычисления значения функции U при заданных значениях x и y. для Предусловие (1)и Постусловие.(2) Прикладываю в самом низу условия,прошу прощения ,что картинкой.. попробовал код написать: предусловие тут мне выдает ошибку на стадии компиляции,не понимаю почему..

program lab11 ;
Var
x,y,u:real;
begin
x:=-11;
While x<=7.4 do
Begin
y:=0;
While y<=1 do
Begin
If (abs(sqr(x)+exp(2*ln(y))))<=5 then
U:= cos(x+y)/sin(x+y) else
If (abs(sqr(x)+exp(2*ln(y)))>5) and (abs(sqr(x)+exp(2*ln(y)))<13) then
U:=(sqr(x)+exp(3*ln(y))) else
U:=x-y;
Writeln('x= ',x:3:2,'y= ',y:3:2,'u= ',u:3:2);
Y:=y+0.2;
End;
X:=x+4.6;
End;
End.

выдает ошибку в 13 строке,хз почему.. постусловие

Program lab21;
Var
x,y,u:real;
begin
x:=-11;
Repeat
y:=0;
If (abs(sqr(x)+exp(2*ln(y))))<=5 then
U:= cos(x+y)/sin(x+y) else
If (abs(sqr(x)+exp(2*ln(y)))>5) and (abs(sqr(x)+exp(2*ln(y)))<13) then
U:=(sqr(x)+exp(3*ln(y))) else
U:=x-y;
Writeln('x= ',x:3:2,'y= ',y:3:2,'u= ',u:3:2);
Y:=y+0,2;
Until y>1;
X:=x+4.54;
Until x>7.4;
End.

-11 ≤ x ≤ 7.4 с шагом h = 4.6 и 0 ≤ y ≤ 1 с шагом h = 0.2. Так же сделал попытку построить блок-схемы(слева-предусловия,справа-постусловие):

Решение задачи: «Составить блок-схему и программу для вычисления значения функции U при заданных значениях x и y»

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

 writeln(x:8:2,y:8:2,u:8:4)

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

Программа выводит на экран значения переменных x, y и u.
Переменная x имеет тип Single и значение 3.2.
Переменная y имеет тип Single и значение 5.7.
Переменная u имеет тип Single и значение 10.4.
Формат вывода чисел с плавающей точкой - 8 знаков до запятой, 2 знака после запятой.
В итоге на экран будет выведено: 3.20 5.70 10.40.