однозвязный список

[Маргоша1993]

.Создать список слов.Вывести на екран все слова короче определенной длены и удалить их з списка.

[VadikV]

Что сложного? Покажи, что уже сделано - подправим.

[Маргоша1993]

program sp;
uses crt;
type
spisok=^elem;
elem=record
data:char;
next:spisok;
end;
var t:spisok;
procedure AddElem(var current:spisok;elem:char);
var x:spisok;
begin
new(x);
x^.data:=elem;
x^.next:=nil;
current^.next:=x;
current:=x;
end;
procedure St_spisok(var t:spisok);
var p:spisok; n:integer;
t:=nil;
writeln('vvedit spusok sliv.#-kine:');
readln(n);
while n<># do
begin
p:=t;
while p^.next<>nil do
p:=p^.next;
AddElem(p,n);
readln(n);
end;
end;
procedure Del_elem(var currenttr);
var xtr;
begin
x:=current^.next;
current^.next:=current^.next^.next;
Dispose(x);
end;
procedure Vivod(var t:spisok);
var p:spisok;
begin
for i:=
Сделала токо половину,незнаю как длену записать и удаление елемента(нужно ли через специальную процедуру)?