Создание+вывод списка, не работает...где ошибка?? Опции

[-Екатерина-]

Написала 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;

!

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

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

Сообщение отредактировано: мисс_граффити - 19.05.2007 15:14