type
  Person = record
    name: string;
    age: integer;
  end;
 
var a: array[1..5] of Person;
 
begin
  a[1].name :='Попова'; a[1].age := 20;
  a[2].name :='Петрова'; a[2].age := 18;
  a[3].name :='Крылов'; a[3].age := 23;
  a[4].name :='Иванов'; a[4].age := 25;
  a[5].name :='Сидоров'; a[5].age := 17;
 
  var fio: string;  
  write('Введите фамилию: ');
  readln(fio);
 
  var ind := 0;
  for var i:=1 to 5 do
    if a[i].name=fio then
    begin
      ind := i;
      break
    end;
 
  if ind>0 then
    writeln('Найдено: ',a[ind].name,' ',a[ind].age)
  else writeln('Человека с такой фамилией нет в списке'); 
end.