Средняя зарплата

program david;
uses crt;
procedure tab; {Строим таблицу}
var i:byte;
begin
 for i:=1 to 45 do
 write ('-');
 writeln;
 end;
 Procedure tabl;  {Делаем шапку таблице}
  begin
   tab;
    writeln ('|','Фамилия   ':10,'|','Зарплата  ':10,'|','Стаж':5,'|','Должность   ':10,'|');
   tab;
  end;
 type zap = record
  Fam: string;
  zar: integer;
  stag: integer;
  Dol: string;
  end;
  Ma=array [1..10] of zap;
  Var rab: array [1..10] of zap;
  i,n:integer;
  sr:real;
procedure zarp(m:ma;var n:integer;s,sr:real); {Находим среднюю зарплату }
begin
s:=1;
for i:=1 to n do
 begin
  S:=S+M[i].zar;
  i:=i+1;
 end;
 sr:=s/n;
end;
begin
clrscr;
Writeln ('Введите количество работников');
readln (n);
  for i:=1 to n do
   with rab[i] do
 begin
write ('Familija '); readln (fam);
write ('Zarplata '); readln (zar);
write ('Stag '); readln (stag);
Write ('Doljnostb '); readln (dol);
 end;
  Writeln ('Sred.zarplata=',sr:4:1);
  writeln ('Рабочие c зарплатой меньше средней');
 for i:=1 to n do
  if rab[i].zar>=sr then
begin
tabl;
write (' ',rab[i].fam,'     ');
write (' ',rab[i].zar,'     ');
write (' ',rab[i].stag,'    ');
writeln (' ',rab[i].dol,'     ');
tab;
end;
 writeln ('Рабочие с должностью меньше 10 лет');
 for i:=1 to n do
  if rab[i].stag<10 then
  begin
tabl;
write ('  ',rab[i].fam,'     ');
write ('  ',rab[i].zar,'     ');
write ('  ',rab[i].stag,'    ');
writeln ('  ',rab[i].dol,'     ');
tab;
end;
readln
end.