Проверьте пожалуйста программу! ! Срочно нужно

program EXAMPLE_5;
var x,y:real; i,f:integer;
begin
repeat
write('Введите начальное значение х=');
readln(x);
writeln('Выберите вид цикла. Нажмите: ');
writeln('1 - для цикла FOR');
writeln('2 - для цикла WHILE');
writeln('3 - для цикла REPEAT');
writeln('0 - выход из программы');
readln(F);
case f of
1: for i:=1 to 21 do
Begin
y:=exp(-x)*(1-cos(pi*x));
writeln('При х=',x:5:2,' y=',y:5:2);
x:=pi/4;
end;
2: While x<=(2*pi) do
Begin
y:=exp(-x)*(1-cos(pi*x));
writeln('При х=',x:5:2,' y=',y:5:2);
x:=pi/4;
end;
3: Repeat
y:=exp(-x)*(1-cos(pi*x));
writeln('При х=',x:5:2,' y=',y:5:2);
x:= pi/4;
until x<=(2*pi);
end;
readln;
until f=0;
end.