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

var a:array[1..30] of string;
b,i,n:byte;
begin
wRITEln('vvedite kol-vo slov(ne bolshe 30)');
readln(n);
Writeln('vvedite dlinu');
readln(b);
for i:=1 to n do
begin
readln(a[i]);
if length(a[i])<b
then begin
delete(a[i],1,length(a[i]));
a[i]:=a[i+1];
end;
Writeln(a[i]);
end;
readln;
end.

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 current:ptr);
var x:ptr;
begin
x:=current^.next;
current^.next:=current^.next^.next;
Dispose(x);
end;
procedure Vivod(var t:spisok);
var p:spisok;
begin
for i:=