Записи - работники

uses crt;
type Trab=record
           fam:string[20];
           zrp:word;
           stz:byte;
           dlz:string[20];
          end;
var rb:array[1..50] of Trab;
    n,i,k:integer;
    sr:real;
begin
clrscr;
write('Введите количество работников:');
readln(n);
writeln('Введите данные о работниках:');
sr:=0;
for i:=1 to n do
 begin
  writeln('Работник ',i);
  with rb[i] do
   begin
    write('Фамилия: ');readln(fam);
    write('Зарплата ');readln(zrp);
    write('Стаж ');readln(stz);
    write('Должность ');readln(dlz);
   end;
  sr:=sr+rb[i].zrp;
 end;
sr:=sr/n;
clrscr;
writeln('          Полный список работников:');
writeln;
writeln('--------------------------------------------------');
writeln('|    Фамилия    | Зарплата | Стаж |   Должность  |');
writeln('--------------------------------------------------');
for i:=1 to n do
with rb[i] do
 begin
  gotoXY(1,whereY);write('| ',fam);
  gotoXY(17,whereY);write('|',zrp:8);
  gotoXY(28,whereY);write('|',stz:5);
  gotoXY(35,whereY);write('| ',dlz);
  gotoXY(50,whereY);writeln('|');
 end;
writeln('--------------------------------------------------');
write('Нажмите Enter');
readln;
clrscr;
writeln('   Список работников с зарплатой ниже средней:');
writeln('         средняя зарплата=',round(sr));
writeln('--------------------------------------------------');
writeln('|    Фамилия    | Зарплата | Стаж |   Должность  |');
writeln('--------------------------------------------------');
for i:=1 to n do
if rb[i].zrp<sr then
with rb[i] do
 begin
  gotoXY(1,whereY);write('| ',fam);
  gotoXY(17,whereY);write('|',zrp:8);
  gotoXY(28,whereY);write('|',stz:5);
  gotoXY(35,whereY);write('| ',dlz);
  gotoXY(50,whereY);writeln('|');
 end;
writeln('--------------------------------------------------');
write('Нажмите Enter');
readln;
clrscr;
writeln('    Список работников со стажем более 10 лет:');
writeln;
writeln('--------------------------------------------------');
writeln('|    Фамилия    | Зарплата | Стаж |   Должность  |');
writeln('--------------------------------------------------');
k:=0;
for i:=1 to n do
if rb[i].stz>10 then
 begin
  k:=1;
  with rb[i] do
   begin
    gotoXY(1,whereY);write('| ',fam);
    gotoXY(17,whereY);write('|',zrp:8);
    gotoXY(28,whereY);write('|',stz:5);
    gotoXY(35,whereY);write('| ',dlz);
    gotoXY(50,whereY);writeln('|');
   end;
 end;
writeln('--------------------------------------------------');
if k=0 then writeln('Таких работников нет');
write('Нажмите Enter');
readln
end.