Линейный динамический список

[kuy]

Ребят, помогите поправить код. Не получается удалить из списка ученика, которого нужно с клавиатуры ввести.
Вот код:

program spisok;
{$APPTYPE CONSOLE}
uses
  SysUtils;

type uk=^rec;
       rec = record
       surname : string[15];{ Фамилия}
       mark : integer;  { оценка}
       v : uk           { указатель на следующую запись}
end;

const
  n=5;
  mas:array[1..n] of rec = ((surname:'Popov';mark:87),
                              (surname:'Kozlov';mark:61),
                              (surname:'Melnechenco';mark:61),
                              (surname:'Gysev';mark:70),
                              (surname:'Titov';mark:70));

var  tek, pred, perv, rab : uk; {указатели на текущую, предыдущую, первую, рабочую записи}
     k : integer;
     f:string;
begin
{чтение из массива}
new (tek); {выделение памяти}
tek^.surname:=mas[1].surname;
tek^.mark:=mas[1].mark;
tek^.v := nil; {следующей записи пока нет}
pred:=tek; perv:=tek;
for k:=2 to n do
 begin
  new (tek); {выделение памяти}
  pred^.v := tek;
  tek^.surname:=mas[k].surname;
  tek^.mark:=mas[k].mark;
  tek^.v:=nil; {следующей записи пока нет}
  pred:=tek;
 end;

k:=0;
if perv<>nil then {список не пуст}
 begin
  tek:=perv;
  while tek<>nil do
   begin
    inc(k);
    writeln(k,') ',tek^.surname,', mark ', tek^.mark);
    tek:=tek^.v {переход к след. записи}
   end;
 end;

write('Input surname: '); readln(f);//ввод фамилии для удаления
tek:=perv; {указатель-на начало списка}
pred:=nil;  {предыдущей записи пока нет}
while tek<>nil do
 begin
  if tek^.surname=f then
   begin
    rab:=tek;
    if tek<>perv then  pred^.v:=tek^.v
     else  perv:=tek^.v;
    if tek^.v=nil then {запись последняя}
     if tek<>perv then{список не пуст}
      pred^.v:=nil
       else {список пуст} perv:=nil;
    dispose (rab);
   end
  else pred:=tek;{переставляем указатель  предыдущей записи, если текущую запись не удаляли}
  tek:=tek^.v; {переход к следующей записи}
 end;
{печать оставшихся записей}
writeln ('Ostalos:');
k:=0;
if perv<>nil then {список не пуст}
 begin
  tek:=perv;
  while tek<>nil do
   begin
    inc(k);
    writeln(k,') ',tek^.surname,', mark ', tek^.mark);
    tek:=tek^.v {переход к след. записи}
   end;
 end;
readln;
readln;
end.

Вот что мне в консоли на секунду выдаёт после введения фамилии: