Pascal ABCИмеется массив данных о K работающих в фирме: фамилия, имя,

Как я сообразил, для вас нужен массив record. Я прав?

да, вы верно сообразили

Месяц и год нечаянно не типа DateTime?

нечаянно, вводится с клавиатуры

//Большую часть медли убил на испытания
//Pascal ABC.NET v3.1 сборка 1172

Type
 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