Repeat (проверить)

Program Lab_621;
  Uses crt;
  Var
  n,t:integer;
  x,a:real;
  const Tn=3;Tk=9;Ht=3;An=0.5;Ak=1.5;Ha=0.5;k=2;
Begin
  ClrScr;
  Writeln ('Лабороторная работа №6');
  Writeln ('Тема: Цикл в цикле');
  Writeln ('_________________________________');
  Writeln ('   t:       a:          x:       ');
  Writeln ('_________________________________');
  T:=Tn;
  A:=An;
   Repeat
    While T<=4.5 do
     Begin
      x:=a*sin(k*t);
      T:=T+Ht;
      Writeln (T:2,a:4:1,x:6:1);
     End;
      While T>4.5 do
       Begin
        X:=a*cos(3*k*t);
        T:=T+Ht;
        Writeln (T:2,a:4:1,x:6:1);
       End;
        A:=A+Ha;
        T:=Tn;
   Until (A>Ak);
   Readln;
End.

Program Lab_621;
  Uses crt;
  Var
  t:integer;
  x,a:real;
  const Tn=3;Tk=9;Ht=3;An=0.5;Ak=1.5;Ha=0.5;k=2;
Begin
  ClrScr;
  Writeln ('Лабороторная работа №6');
  Writeln ('Тема: Цикл в цикле');
  writeln;
  Writeln ('----------------------');
  Writeln ('|  t  |  a   |  x    |');
  Writeln ('----------------------');
  T:=Tn;
  While T<=Tk do
    Begin
      A:=An;
      while a<=Ak do
       begin
        if t<=4.5 then x:=a*sin(k*t)
        else x:=a*cos(3*k*t);
        Writeln ('|',T:3,'  |',a:4:1,'  |',x:6:3,' |');
        a:=a+Ha;
       end;
     T:=T+Ht;
    end;
 Writeln ('----------------------');
 Readln;
End.