Pascal ABC
Имеется массив данных о K работающих в фирме: фамилия, имя, отчество, адрес(улица, дом, квартира) и дата поступления на работу(месяц, год). Во второй массив записать только тех из них, кто проживает по определённой улице. Название этой улицы ввести с клавиатуры.

//Большую часть времени убил на тесты//Pascal ABC.NET v3.1 сборка 1172Type ty=record  sub,name,ot,ul,kv,ho:string;  mo,ye:integer; end;Var ar1,ar2:array of ty; k,i,n:integer; s:string;begin readln(k); setlength(ar1,k); n:=0; for i:=0 to k-1 do  begin   write('Введите фамилию рабочего №',i+1,':'); readln(ar1[i].sub);   write('Введите имя рабочего:№',i+1,':'); readln(ar1[i].name);   write('Введите отчество рабочего:№',i+1,':'); readln(ar1[i].ot);   write('Введите улицу проживания рабочего:№',i+1,':'); readln(ar1[i].ul);   write('Введите дом проживания рабочего:№',i+1,':'); readln(ar1[i].ho);   write('Введите квартиру проживания рабочего:№',i+1,':'); readln(ar1[i].kv);   write('Введите месяц поступления на работу рабочего:№',i+1,':'); readln(ar1[i].mo);   write('Введите год поступления на работу рабочего:№',i+1,':'); readln(ar1[i].ye);  end; write('Введите искомую улицу:'); readln(s); writeln('Результаты:'); for i:=0 to k-1 do  begin   if ar1[i].ul=s then    begin     inc(n);     setlength(ar2,n);     ar2[n-1]:=ar1[i];     writeln('Рабочий #',i+1,',', ar2[n-1].sub,' ',ar2[n-1].name,' ',ar2[n-1].ot);     writeln('Адрес:',ar2[n-1].ul,' ',ar2[n-1].ho,',',ar2[n-1].kv);     writeln('Дата поступления на работу:',ar2[n-1].mo,',',ar2[n-1].ye);    end;  end;end.     Пример ввода:3Введите фамилию рабочего №1:ХацунеВведите имя рабочего:№1:МикуВведите отчество рабочего:№1:ИвановнаВведите улицу проживания рабочего:№1:ОмотесандоВведите дом проживания рабочего:№1:23Введите квартиру проживания рабочего:№1:34Введите месяц поступления на работу рабочего:№1:1Введите год поступления на работу рабочего:№1:1998Введите фамилию рабочего №2:ДвачевскаяВведите имя рабочего:№2:АлисаВведите отчество рабочего:№2:ПетровнаВведите улицу проживания рабочего:№2:ПушкинаВведите дом проживания рабочего:№2:223Введите квартиру проживания рабочего:№2:34Введите месяц поступления на работу рабочего:№2:2Введите год поступления на работу рабочего:№2:1997Введите фамилию рабочего №3:ПерсуновВведите имя рабочего:№3:СемёнВведите отчество рабочего:№3:ОлеговичВведите улицу проживания рабочего:№3:ОмотесандоВведите дом проживания рабочего:№3:23Введите квартиру проживания рабочего:№3:34Введите месяц поступления на работу рабочего:№3:6Введите год поступления на работу рабочего:№3:2000Введите искомую улицу:ОмотесандоПример вывода:Результаты:Рабочий #1,Хацуне Мику ИвановнаАдрес:Омотесандо 23,34Дата поступления на работу:1,1998Рабочий #3,Персунов Семён ОлеговичАдрес:Омотесандо 23,34Дата поступления на работу:6,2000