Вопрос по информатике:

Пожалуйста помогите. Очень надо срочно! Всего лишь нужно найти ошибку. Не пугайтесь объема вопроса. Составьте программы на языке
Turbo Pascal с использованием цикла с предусловием, с постусловием,
используя, условный оператор IF.
. Вычислите значения функции У:(картинка).
Решение:
1 способ.
program funk_F1;
var x,t,y:real;
begin
t:=0;
while t<=6 do begin
if t<=1 then x:=2*t-6 else
if t>=3 then x:=ln(1+t*t) else
x:=sqrt(t)+ln(t);
y:=2.2*exp(4*ln(x))+0.3*x;
writeln('y(',t:2:1, ')=', y:6:2);
t:=t+0.5;
end;
readln;
end.
2 способ.
program funk_F2;
var x,t,y:real;
begin
t:=0;
repeat
if t<=1 then x:=2*t-6 else
if t>=3 then x:=ln(1+t*t)else
x:=sqrt(t)+ln (t);
y:=2.2*exp(4*ln(x))+0.3*x;
writeln('y(',t:2:1, ')=', y:6:2);
t:=t+0.5;
until x>6;
readln;
end.
Пишет что в 9 строчке ошибка. В чем она заключается не могу понять.