удаление строк в списке.

[Honey Bear]

Здравствуйте! Задача: имеется список, линейный, однонаправленный из строк, не важно каких (мой наполнитель - текст), Список задается из файла, который может быть любого размера, строки ограничены длиной 25 символов, необходимо процедурой удалить строки от K до N.
В общем моих знаний паскаля хватило на удаление списка целиком, ну или до какого то момента.=) Как правильно добраться до нужной строки без жертв и крови?)) И как реализовать выбор K и N? В голове уже каша от ляпистых и элементарных примеров с разных форумов и сайтов.

program strngdlt;
type
    next=^ elem;
    elem=record
    el: string [25];
    sled: next;
end;
var
   sp, zv: next;
   f, g: text;

procedure DELSTR (var sp1:next);
var
   dl: next;
   k, n: integer;
begin
     k:=1;
     while k<>3 do
     begin
     sp1:=sp1^.sled;
     inc (k);
end;

begin
     assign (f, 'DAN.INP');
     reset (f);
     assign (g, 'RES.OUT');
     rewrite (g);

     new (zv);
     sp:=zv;
     readln (f, zv^.el);
     zv^.sled:=nil;
     while not eof (f) do
     begin
          new (zv^.sled);
          zv:=zv^.sled;
          readln (f, zv^.el);
          zv^.sled:=nil;
     end;
     zv:=sp;
     begin
          DELSTR (sp);
     end;
     zv:=sp;
     while zv<>nil do
     begin
          writeln (g, zv^.el);
          zv:=zv^.sled;
     end;
     close (f);
     close (g);
end.