Написала 2 процедуры создания и вывода списка на экран, но ничего не выводит! подскажите пожалуйста где ошибка??

TYPE
EL=^ZAP;
ZAP=RECORD
INF1:INTEGER;
INF2:STRING;
NEXT : EL; {ssilocnoe pole }
END;


VAR
FIRST, P, Q , T : EL;
ans: string;
i,k,x,n: integer;

procedure create_list;
begin
first:=nil;
ans:='y';
while ans='y' do
begin
new(p);
p^.next:=first;
WRITELN ('vvedite znachenie pervogo inf. polya');
READLN ( P^.INF1 );
WRITELN ('vvedite znachenie vtorogo inf. polya');
READLN ( P^.INF2 );
first:=p;
writeln ('ewe element?? y-da');
readln (ans);
end;
end;

procedure print_list (first: el);
begin
writeln ('------------------------------------------------------------');
writeln ('№ p\p | inf1 inf2');
writeln ('------------------------------------------------------------');
q:=first;
i:=0;
while q<>nil do
begin
inc(i);
writeln (' ',i,' ',q^.inf1,' ',q^.inf2);
q:=q^.next;
end;
readln;
end;

!

Не надо нарушать правила - пользуйся тегами... (см. правила вверху страницы). Настоятельно рекомендую в ближайшее время исправить. мисс_граффити

при выводе выводит только шапку.
очень надо, заранее спасибо

хм..у мну выводит..в таком виде:

uses crt;


TYPE
 EL=^ZAP; 
  ZAP=RECORD
   INF1:INTEGER;
   INF2:STRING;
   NEXT : EL; {ssilocnoe pole }
  END;


VAR
 FIRST, P, Q , T : EL; 
 ans             : string;
 i,k,x,n         : integer;

procedure create_list;
begin
 first:=nil; 
 ans:='y';

 while ans='y' do
 begin
  new(p);
  p^.next:=first;
  WRITELN ('vvedite znachenie pervogo inf. polya');
  READLN ( P^.INF1 );
  WRITELN ('vvedite znachenie vtorogo inf. polya'); 
  READLN ( P^.INF2 );
  first:=p;
  writeln ('ewe element?? y-da');
  readln (ans);
 end;
end;

procedure print_list (first: el);
 begin
  writeln ('------------------------------------------------------------');
  writeln ('№ p\p | inf1 inf2');
  writeln ('------------------------------------------------------------');
  q :=first;
  i :=0;
 while q<>nil do
 begin
  inc(i);
  writeln (' ',i,' ',q^.inf1,' ',q^.inf2); 
  q:=q^.next;
 end;
 readln;
end;



begin
clrscr;
create_list;
print_list(first);





readkey;
end.

да все работает! спасибо большое!

пожалуйста)