не могу удалить запись из списка

[asd-uk]

не могу сделать так, чтоб программа находила страну с немецким гос.языком и удалял ее из списка....:conf used:


program lab9;
type
pStrana = ^typeStrana;
typeStrana = record
strana : string[15];
yazik : string[10];
stolica : string[15];
next : pStrana;
end;
var
filef : file of typeStrana;
Strana, h_Strana : pStrana;
p : typeStrana;
Ok : boolean;
a : char;
W : integer;





procedure InputList;
begin
writeln ('vvedite dannie');
Ok := True;
New(h_Strana);
Strana := h_Strana;
while Ok do
begin
write('Nazvanie strani ');
readln(Strana.strana);
write('Gosydarstvennii yazik ');
readln(Strana.yazik);
write('Stolica ');
readln(Strana.stolica);
write('est li ewe dannie? ');
readln(a);
if (a='D') or (a= 'd') then
begin
new(Strana.next);
Strana:= Strana.next;
end
else
begin
Strana.next:= Nil;
Ok:= false;
end;
end;
write('Spisok stran sozdan. Nazhmite ENTER');
readln;
end;




procedure listtofile;
begin
assign (fileF, 'd:\Strana.txt');
rewrite (fileF);
Strana:=h_Strana;
while Strana <> Nil do
begin
p.strana := Strana.strana;
p.yazik := Strana.yazik;
p.stolica := Strana.stolica;
write(fileF, p);
Strana:= Strana.next;
end;
close (fileF);
write('Spisok stran zapisan v fail, nazhmite ENTER dlya prodolzheniya');
readln;
end;




procedure FileToList;
begin
assign (fileF, 'd:\Strana.txt');
reset (fileF);
Ok := True;
while not eof(fileF) do
begin
read (fileF, p);
if Ok then
begin
new (h_Strana);
Strana := h_Strana;
Ok := False;
end
else
begin
new (Strana.next);
Strana := Strana.next;
end;
Strana.strana:= p.strana;
Strana.yazik:= p.yazik;
Strana.stolica:= p.stolica;
Strana.next:= Nil;
end;
close (fileF);
write('Spisok stran sozdan iz faila, dlya prodolzheniya nazhmite ENTER');
readln;
end;




procedure PrintList;
begin
Strana := h_Strana;
if Strana=Nil then
begin
write('Spisok stran pyst, dlya prodolzheniya nazhmite ENTER');
readln;
end;
writeln(' STRANA: ',' YAZIK: ','STOLICA: ');
while Strana <> Nil do
begin
writeln (Strana.strana:15, Strana.yazik:20, Strana.stolica:15);
Strana:= Strana.next;
end;
write('Spisok stran viveden na ekran,dlya prodolzheniya nazhmite ENTER');
readln;
end;




begin
while W<>5 do
begin
writeln('viberite deistvie');
writeln('1-vvesti spisok');
writeln('2-zapisat spisok v fail');
writeln('3-schitat spisok iz faila');
writeln('4-vivesti spisok');
writeln('5-zavershit raboty');
readln(W);
case W of
1: InputList;
2: listtofile;
3: FileToList;
4: PrintList;

end;
end;
end.