Тема #170535

Задача: ведомость по зарплатам, 1. Нужно определить кол-во работников с зарплатой выше среднего
2. Определить номер работника с высшей зарплатой
3. Увеличить зарплату на 20% тем у кого ниже среднего и понизить на 5% тем у кого выше среднего! Вот что я сделал, программа работает но неверно помогите исправить

program zavod;
var n:integer;
a:array[1..100]of real;
m:integer;
k:integer;
s:real;
i:integer;
begin
writeln('введите кол-во рабочих');
readln(n);
k:=0;
s:=0;
m:=1;
writeln('введите зарплаты');
for i:=1 to n
do begin
read(a[i]);
s:=s+a[i];
if a[i]>a[m]
then m:=i;
end;
s:=s/n;
for i:=1 to n
do begin
if a[i]>s
then a[i]:=a[i]-a[i]*0.05;
if a[i]s
then k:=k+1;
writeln('новые зарплаты');
for i:=1 to n do write(a[i],' ');
writeln('максимальная зарплата у работника номер ',m);
writeln('кол-во работников получающих зарплату выше среднего ',k)
end;
end.