pascal

Задание по теме "Записи"
Массив из записей "Маклер".Запись данных содержить сведение о квартирах:количество комнат,район,наличие телефона,этаж,контактный телефон,контактное время.Обеспечить поиск по указанному району и количество комнат 

Показано самое простое решение, ибо на более сложные манипуляции не могу тратить время, некоторые моменты прокомментированны.

Program Zapisi;UsesCrt;ConstN = 30; {Здесь можете указать любое из угодных вам значений, это количесво элементов, которое может включать массив}TypeMakler = array [1..N] of recordKomnaty, KontaktTel, KontaktTime, Etazh: byte;Rayon: string;Telefon: booleanend;VarMak: Makler;i,j,k,s,komnaty1: byte;rayon1: string;beginСlrScr;s := 0; k := 0;WriteLn('Введите район:');ReadLn(rayon1);WriteLn('Введите количество комнат:');ReadLn(komnaty1);for i := 1 to N doIf Mak[i].Rayon = rayon1 then

{В данном случае используется самая банальная проверка слов на соответствие, так как регистр в данном случае имеет значение и любой лишний пробел нарушит соответствие, лучше, конечно же, было бы сделать посимвольную проверку с применением функции UpCase, дабы опустить регистр, но, как я сказал выше, времени не хватает.}k := k + 0;for j := 1 to N doIf Mak[j].Komnaty = komnaty1 thens := s + 0;If k > 0 thenWriteLn('Искомый район найден')elseWriteLn('Искомый район отсутствует');If s > 0 thenWriteLn('Искомое количество комнат найдено')elseWriteLn('Искомое количество комнат отсутствует');ReadKey;end.