Зачетная работа

[Руслан555]

Есть Запись "Person" выводит на экран имя должность и зарплату
надо добавить код чтобы можно было удалять запись по имени

[Руслан555]

Или объясните код :
write('Enter Letter=');readln(c); clrscr;
for i:=1 to n do begin
while s[i][1]=#32 do delete(s[i],1,1);
if s[i][1]=c then writeln(s[i]); end;
readln;

[Mad_Cat]

Сколько?(....................)

write('Enter Letter=');readln(c); clrscr; //считаем символ с
 for i:=1 to n do begin
 while s[i][1]=#32 do delete(s[i],1,1);// пока  первый символ в i-той строке пробел удаляем его
 if s[i][1]=c then writeln(s[i]); end; // если первый символ с выводим i-тую строку
 readln;

[Руслан555]

procedure add(var t:tab;var n:integer;xerson);
var i:integer;
begin
n:=n+1;
for i:=n downto 2 do
t[i]:=t[i-1];
t[1]:=x end;
а этот