Программа создает список из 10 элементов и выводит их на экран — Pascal(Паскаль)

program EvgeniiSp;
uses Crt;
const
 n = 9;
type
 pt = ^elem;
 elem =
  record
   data: integer;
   next: pt;
  end;
var
 i: integer;
 t,first,u: pt;
begin
 ClrScr;
 new(u);
 u^.data:=10;
 u^.next:=u;
 first:=u;
 t:=u^.next;
 for i:=9 downto 1 do
   begin
    new(t^.next);
    t:=t^.next;
    t^.data:=i;
    t^.next:=nil;
   end;
 u:=t^.next;
 t:=first ;
 repeat
  writeln(t^.data);
  t:=t^.next;
 until t = u;
end.