Помогите исправить ошибки.

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

Program Posledow;

Var x, y: real;

Begin

x:=8

Repet` y:=SQR(x-8)/6;

Writeln (x:8:3, y:8:3);

x:=x+6;

Until y+5<0;

End.