Дано 100 вещественных чисел, которые вводятся по одному. Вычислить среднее арифметическое чисел, больших полусуммы первых двух — Pascal(Паскаль)

uses crt;
const n=100;
var a,b,c,p,s:real;
    i,k:byte;
begin
clrscr;
writeln('Введите ',n,' вещественных чисел:');
readln(a);//первое число
readln(b);//второе
p:=(a+b)/2;//полусумма
k:=1;//одно число, которое больше, в сумму
if a>b then s:=a
else s:=b;
for i:=3 to n do//остальные числа
 begin
  readln(a);
  if a>p then//если больше полусуммы
   begin
    k:=k+1;//считаем
    s:=s+a;//суммируем
   end;
 end;
s:=s/k;//среднее
writeln('Среднее арифметическое чисел больших ',p:0:2,'=',s:0:2);
readln
end.