Строки

[Руслан555]

Андрей Директор 12000
Валера Менеджер 1000
Григорий It 1024

надо написать код удаления строки по имени.

type person=record name,position:string;pay:integer end;
tab=array[1..50]of person;

function ent(var terson):boolean;
begin
write('Name=');readln(t.name);
if t.name='' then begin ent:=false;exit end;
write('Position=');readln(t.positio n);
write('Pay=');readln(t.pay);
ent:=true end;
procedure enter(var t:tab;var n:integer);
begin n:=1;
while ent(t[n]) do n:=n+1;
n:=n-1 end;