В одномерном массиве, состоящем из n вещественных элементов, вычислить:1) количество элементов массива, больших С;2) произведение элементов массива, расположенных после максимального по модулю элемента. — Pascal(Паскаль)

uses crt;
var m:array[1..100]of integer;
i,n,c,k,max:integer;
s:longint;
 
begin
 clrscr;
 write('Введите размер массива -> ');
 readln(n);
 write('Введите С -> ');
 readln(c);
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 
 k:=0;
 for i:=1 to n do if m[i]>c then inc(k);
 writeln('Элементов, больших С - ',k);
 
 max:=1;
 for i:=1 to n do if abs(m[i])>abs(m[max]) then max:=i;
 
 writeln('Максимальный элемент - M[',max,']=',m[max]);
 s:=1;
 for i:=max+1 to n do s:=s*m[i];
 writeln('Произведение равно ',s);
 readln;
end.