считать даные с файла в список , удалить из списка заданое значение

program Project2;
{$APPTYPE CONSOLE}
uses
 SysUtils;
type
 
ptr=^stud;
stud=record
 data:string;
 next:ptr;
end;
 
var
f: text;
current,
head,
previous,
student
:ptr;
key:char;
flag:boolean;
////////////////////////////////////////
procedure DelFirst;
begin
head:=current^.next;
dispose(current);
end;
//////////////////////////////////////////////////////
Procedure DelMiddle();
begin
previous^.next:=current^.next;
Dispose(current);
end;
/////////////////////////////////////////
procedure ReadFromFile();
var str:string;
begin
current:=head;
reset(f);
repeat
readln(f,str);
current^.data:=str;
current:=current^.next;
flag:=(str='');
until flag;
end;
////////////////////////////////////////
function SearchPlaceDelete():boolean;
begin
repeat
previous:=current;
current:=current^.next;
until (current^.data=student^.data) or (current^.next=nil);
SearchPlaceDelete:=current^.data=student^.data;
end;
//////////////////////////////////////////////////////
Procedure Delete()  ;
var prizv:string;
begin
 
if head=nil then
 begin
  writeln('List Is Empty!');
  readln;
 end
else
begin
 write('Enter Prizv: ');
 readln(Prizv);
 current:=head;;
 if current^.data=prizv then
  DelFirst
 else
  if SearchPlaceDelete  then
    DelMiddle
   else
    begin
      writeln(prizv,'not found in list. ');
      readln;
    end;
end;
end;
/////////////////////////////////////////////
procedure SaveToFile();
begin
repeat
current:=head;
reset(f);
write(f,current^.data);
current:=current^.next;
until(current^.next=nil);
end;
 
begin
head:=nil;
current:=nil;
assign(f,'Klas.txt');
writeln('=================MENU=======================');
writeln('1.REad from file');
writeln('2.Delete Element ');
writeln('3.Save to file');
write('Numer: ');readln(key);
case key of
'1':ReadFromFile;
'2':DeleteIntoMiddle;
'3':SaveToFile;
end;
 readln;
end.