q201148966

program q201148966;
type
  Note = record;
    fName, lName: string;
    phone: string;
    birthday: array [1..3] of word;
  end;

const N = 8;
var
  a: array [1..N] of Note;

procedure readNotes;
 var i: integer;
begin
  for i := 1 to N do
  begin
    writeln('Note #', i ,':');
    write('Имя: ');   readln(a[i].fName);
    write('Фамилия: ');    readln(a[i].lName);
    write('Номер телефона: '); readln(a[i].phone);
    writeln('День рождения: ');
    write('  День: ');   readln(a[i].birthday[1]);
    write('  Месяц: '); readln(a[i].birthday[2]);
    write('  Год: ');  readln(a[i].birthday[3]);
    writeln;
  end;
end;

procedure searchByLastName;
 var lName: string;
     found: boolean;
     i: integer;
begin
  found := false;
  write('Введите фамилию для поиска: ');
  readln(lName);
  writeln;

  for i := 1 to N do
    if (a[i].lName = lName) then
    begin
      found := true;
      writeln('Имя: ', a[i].fName, ' ', a[i].lName);
      writeln('Номер телефона: ', a[i].phone);
      write('День рождения: ', a[i].birthday[1], '.');
      writeln(a[i].birthday[2], '.', a[i].birthday[3]);
      writeln;
    end;

  if not found then
  begin
    writeln('Ничего не найдено!');
    writeln;
  end;
end;

procedure saveToFile;
 var f: file of array [1..N] of Note;
     fileName: string;
begin
  write('Введите имя файла для сохранения: ');
  readln(fileName);
  assign(f, fileName);
  rewrite(f);
  write(f, a);
  close(f);
  writeln('Сохранено!'); writeln;
end;

begin
  readNotes;
  searchByLastName;
  saveToFile;
end.