РЕБЯТА, ПОМОГИТЕ, ПРОШУ В записной книжке записаны фамилии и номера телефонов 10 человек. Определить есть ли в книжке телефон некоторого человека. Если есть - то вывести его телефон. ПАСКАЛЬ.ЗАПИСИ

uses crt; type TRec = Record FIO: String[20]; TEL: String[7] end; var rec: TRec; i:integer; who:string; flag:boolean; a: array [1..20] of TRec; begin a[1].FIO := 'Иванов Петр'; a[1].TEL := '+374844'; a[2].FIO := 'Крылова Света'; a[2].TEL := '+373129'; a[3].FIO := 'Соловей Иван'; a[3].TEL := '+370929'; //создай дальше до 10 сама write('Write fio '); readln(who); for i:=1 to 3 do begin if a[i].FIO = who then begin writeln('Номер ',who,' = ',a[i].TEL) ; flag:=true; end else flag:=false; end; if flag=false then writeln('cannot find ',who); readln; end.