Help me

Построить список,содержащий строки символов, а затем удалить из него строку наименьшей длины.
Надо процедуру дошаманить и все тип топ будет.хелп плз

program stroki;

type ref = ^node;
node = record
key : string;
next : ref;
end;

procedure vivod(p : ref);
var x : ref;
begin
x := p;
while x <> nil do begin
writeln (x^.key,' ',length(x^.key));
x := x^.next;
end;
end;

procedure insertt (var p, pp : ref);
var
x : ref; y,e1 : string;
begin
assign (input, 'input.txt');
reset (input);
p := nil;
while not eof do begin
readln (y);
new (x);
x^.key := y;
x^.next := p;
p := x;
x := p;
pp := x;
end;
close (input);
end;

procedure kll (var p : ref);
var
x : ref; y : string; min : integer;
begin
x := p;
min := length (x^.key);
while x <> nil do begin
if length(x^.key) < min then min := length(x^.key);
x := x^.next;
end;
writeln (min);
x := p;
if
while x <> nil do begin
if length(x^.key) = min then begin
if x^.next = nil then begin
x := nil;
break;
end;
end;
x := x^.next;
end;
end;

var
p,q : ref;

begin
insertt (q,p);
vivod (q);
q := p;
kll (q);
writeln ('====');
vivod (q);
end.