Вычислить сумму и количество положительных элементов массива x. x(100 turbo pascal

памятник представляет собой копию клавиатуры из  бетона  в масштабе 30: 1. состоит из 104 клавиш, сделанных из бетона весом от 100 до 500  кг, расположенных в раскладке  qwerty. клавиши расположены в углублениях с интервалом 15  см. общая площадь проекта 16  ×  4  м. поверхность клавиш плоская с рельефными обозначениями алфавита и функциональных символов, размещенных в том же порядке, что и на обычной компьютерной клавиатуре.

в июле 2016 года на клавише  end  установлена  мемориальная доска в честь  евгения зорина

Var       a, b, c: real; function isbetween(x, a, b: real): boolean; var       t: real; begin       if a < b then       begin               t : = a;               a : = b;               b : = t;       end;       isbetween : = (a > = b) and (a > = x) and (x > = b); end; begin             readln(a, b, c); // не вводить одинаковых!       write('среднее число №');             if isbetween(a, b, c) then writeln(1);       if isbetween(b, a, c) then writeln(2);       if isbetween(c, b, a) then writeln(3); end.