Дан массив из 100 записей. Записать содержит информацию о рабочих предприятия: фамилию, имя, год рождения, зарплату за предыдущий месяц. Распечатать фамилии с указанием зарплаты тех рабочих, чья зарплата меньше прожиточного минимума. Прожиточный минимум ввести с клавиатуры — Pascal(Паскаль)

uses crt;
type rabot=record
           fam:string[20];
           im:string[20];
           god:word;
           zrp:word;
           end;
var a:array[1..100] of rabot;
    n,i,k:byte;
    min:word;
begin
clrscr;
write('Количество записей n=');
readln(n);
writeln('Введите данные:');
for i:=1 to n do
 begin
  writeln('Работник ',i);
  with a[i] do
   begin
    write(' Фамилия: ');readln(fam);
    write(' Имя:');readln(im);
    write(' Год рождения:');readln(god);
    write(' Зарплата:');readln(zrp);
   end;
 end;
write('Прожиточный минимум min=');
readln(min);
writeln('Получили зарплату меньше прожиточного минимума:');
k:=0;
for i:=1 to n do
if a[i].zrp<min then
 begin
  k:=1;
  writeln(a[i].fam,'  ',a[i].zrp);
 end;
if k=0 then write('Таких нет.');
readln
end.