Динамические списки_PLS_HLP

[felixandr]

ДОБРЫЙ ВЕЧЕР)))
Надеюсь, это сообщение смотрит человек который может мне помочь.
Мне нужна помощь с динамическими массивами.
Суть задачи:
Программа должна быть в 3 процедуры:
1)создание в списке массива чисел(смог сделать только это)
2)вывод на экран содержимого списка
3)ввод числа, после которого в списке-после этого номера-удаляются все элементы.

Я смог сделать только это, дальше не получается:

uses crt;
const
n= 21;

type
pp= ^elem;
elem= record
inf1: integer;
next: pp;
end;

var
ptb, pte: pp;
i,j:INTEGER;

procedure newList;
var
i: integer;
pt: pp;

begin


ptb:= nil;
for i:=1 to n do begin
new(pt);
pt^.inf1:= i*i;
end;
if ptb=nil then begin
ptb:= pt;
pte:= pt
end
else pte^.next:= pt;
pte:= pt;
pte^.next:= nil;
end;


procedure showList;
begin
while ptb <> nil do begin
writeln(ptb^.inf1);
ptb:=ptb^.next;
end;

readkey;
end;


begin
repeat
CLRSCR;
writeln('VVEDI 1 DLYA ZAPOLNENIYA I VIVODA SPISKA');
WRITELN('VVEDI 2 DLYA VIVODA SPISKA');
WRITELN('VVEDI 3 DLYA UDALENIYA SOME ELEMENTOV

SPISKA');
WRITELN('PRESS ESC TO EXIT');

case readkey of

'1':begin newList; writeln('OUR LIST'); showlist

end;

'2':begin showList; end;

#27:exit;

else begin writeln; writeln('TAKOI KOMANDI

NET');end;
end;
readln;
until false;

readkey;
end.