задача на цикл, пмогите Опции

[Fallen59]

Привет всем. Помогите решить задачу(а то одна неделя ост до зачета а мне защищать лабу надо=((():
1. ВВодятся переменные x,y,t,k
2. Пока x-y<t*k выполнять:
если x+k>t тогда a=ln(x+k), b=tgx, t=t+5.1
иначе a=y/k-xt, b=sqr(t-k), y=y+7,2, x=x-4,3
3 Выдать на экран значение a,b
4 Выполнить пункты 1-3 7 раз.


с 1 по 3 я знаю как делать, а как их повторить 7 раз нет, помогите плиз...как это в программе написать??

[Fallen59]

что то у меня все равно неправильно, вот составил программу а препод в инсте сказал что где то неравильно((

program new;
uses crt;
var 
  x,y,t,k: real; i:integer;
begin
    for i:=1 to 7 do
  begin
   writeln('введите переменные x,y,t,k');
   readln(x,y,t,k);
   while x-y<t*k do 
         begin
             if x+k>t then 
                   begin
                  if (x+k<>0) and (x<>0) then
                  a:=ln(x+k);
                  b:=sinx/cosx;
                  t:=t+5.1;
                   end;
              else
              (k-x*t<>) and (t-k<>0) then
              a:=y/(k-x*t);
              b:=sqrt(t-k);
              y:=y+7.2;
              x:=x-4.3;
           end;
       writeln('a=',a);
       writeln('b=',b); 
       readln;
      end;
end.