Free pacskal 2.4.4 ошибка №207

[Dgus23]

найти значение функции U.если известно что:
U= фигурная скобка
tg^7x,если x^2y≤0
ysin^3x,если 0<x^2y<15
x^e-y,если x^2y≥15
условие:
1≤x≤7.8 , hx=1.74; -1≤y≤4.2, hy=1.3.
Вот написал програмы Repeat и While!

1)Repeat

Program pr1;
var x, y, Z, U: real;
begin
Z:=sqr(x)*y;
x:=1;
repeat
y:=-1;
repeat
if Z<=0 then U:=exp(7*ln(sin(x)/cos(x))) else
if (Z>0) and (Z<15) then U:=y*(exp(3*ln(sin(x))))else
U:=exp(1)*x-y;
writeln('при х= ',x:4:2,'при y= ',y:4:2,'при U= ',U:4:2);
y:=y+1.3;
until y>4.2;
x:=x+1.74;
until x>7.8;
end.
2)while

Program pr2;
var x, y, Z, U: real;
begin
Z:=sqr(x)*y;
x:=1;
while x<=7.8 do begin
y:=-1;
while y<=4.2 do begin
if Z<=0 then U:=exp(7*ln(sin(x)/cos(x))) else
if (Z>0) and (Z<15) then U:=y*(exp(3*ln(sin(x))))else
U:=exp(1)*x-y;
writeln('при х= ',x:4:2,'при y= ',y:4:2,'при U= ',U:4:2);
y:=y+1.3;
end;
x=x+1.74;
end;
end.
Программы вроде правильно написаны, но выдает ошибку 207! Что делать не знаю т.к. вообще в этом плохо разбираюсь) Помогите найти ошибку и объяснить мне как ее исправить только каким нибудь легким языком)) Или подсчитайте пожалуйста в паскале и киньте мне полученные ответы!) Буду очень признателен за помощь)