Паскаль помогите: С

Кода вышло много, поэтому в красивом виде он в ответ не влазит. Вот ссылка на красивую версию: https://pastebin.com/N8niEStr

А вот некрасивая, но влезающая в ответ версия кода:
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.

Ах да, еще я не сделал упорядочение записей по трем первым цифрам номера телефона, это уже сам.

а вы понимаете разницу между
"помогите" и "напишите мне"

я умею, 1200р.