Программирование циклических алгоритмов

[Dina 85]

Помогите пожалуйста.
задание такое:протабулировать функцию и создать разные варианты программы с использование операторов for,while,repeat...until
Пыталась что-то сделать,но не выходит.Хоть с чем-нибудь помогите.

program tu;
uses crt;
var a,x,F,da:real;
i:byte;
begin
write('vvedite znacheniya x');
readln(x);
writeln('--------------------------------------------------');
writeln('a':12,':':12,'f(a)':12);
writeln('--------------------------------------------------');
a:=-1;
repeat
if a<0 then
if x>=0 then
begin F:=a-exp(6/7*ln(x));
writeln('F=',F:6:2,'a=',a);
end
else writeln('znachenie F ne opredeleno');
if(0<a)and(a<1)then
if cos(a*a)<>0 then
begin
F:=cos(x)*cos(x)+(sin(a*a)/cos(a*a))*(sin(a*a)/cos(a*a))*(sin(a*a)/cos(a*a));
writeln('F=',F:6:2,'a=',a);
end
else write('znachenie F ne opredeleno');
if(1<=a)and(a<=2)then writeln('funktion ne zadana pri a=',a);
if a>2 then
if x>0 then
begin
F:=ln(x)+sqrt(a*x);
write('F=',F,'a=',a);
end
else writeln('znachenie F ne opredeleno');
a:=a+0.25;
until a>3;
readln;
end.