Написать программу для работы с записями: cведения об отработанных часах рабочих и зарплата за каждый из 5 дней- Pascal(Паскаль)

uses crt;
type
ned=record
    chs:byte;
    zrp:word;
    end;
rab=record
    fio:string[20];
    prf:string[20];
    fkt:array[1..5] of ned;
    zpn:word;
    end;
var zp:array[1..5] of rab;
    i,j:byte;
    sr:real;
begin
clrscr;
writeln('Введите данные ведомости по 5 рабочим:');
for i:=1 to 5 do
 begin
  writeln('Рабочий ',i);
  write(' Фамилия И.О.: ');readln(zp[i].fio);
  write(' Профессия: ');readln(zp[i].prf);
  writeln(' Сведения об отработанных часах и з/п за каждый из 5 дней:');
  zp[i].zpn:=0;
  for j:=1 to 5 do
   begin
    write('  Часы: ');readln(zp[i].fkt[j].chs);
    write(' З/плата: ');readln(zp[i].fkt[j].zrp);
    zp[i].zpn:=zp[i].zpn+zp[i].fkt[j].zrp;
   end;
 end;
clrscr;
sr:=0;
for i:=1 to 5 do
sr:=sr+zp[i].zpn;
writeln('Средняя зарплата за неделю=',sr/5:0:2);
for i:=1 to 5 do
if zp[i].zpn>sr then writeln(zp[i].fio);
readln
end.