Лабораторная работа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.