Лабораторная работа2

uses crt;
var
fio, ceh: array [1..20] of string;
zar: array [1..20] of real;
ceh_X:string;
n, i, k: integer;
s:real;
begin
 clrscr;
 writeln('vvedite kol-vo zapisei');
 readln(n);
 for i:=1 to n do
  begin
   writeln('vvedite fio');
   readln(fio[i]);
   writeln('vvedite ceh');
   readln(ceh[i]);
   writeln('vvedite zarplata');
   readln(zar[i]);
  end;
 writeln('vvedite nazvanie ceha');
 readln(ceh_X);
 s:=0;
 k:=0;
 for i:=1 to n do
  if ceh[i]=ceh_X then
   begin
    writeln (fio[i],' - ',zar[i]:10:2);
    s:=s+zar[i];
    k:=k+1;
   end;
 s:=s/k;
 writeln('srednemesyachnaya zarplata = ',s:10:2);
 readkey;
end.