Поиск в типизированном файле. Телефонный справочник

[Stilet]

while not eof(fz) do
begin
 read(fz,stud1);
 if (stud1.fio=g) xor (stud1.otcs=g) then  begin
  memo1.Lines.Add(stud1.otcm);
  y:=y+1; 
 end;
end;
if y=0 then memo1.Lines.Add('Результат не найден;');

[mira95]

Все, спасибо, все идеально работает, я успешно защитила ЛР __))