Пожалуйста посчитайте информатику пожалуйста ((

C 1 по 4  пункт:
program Ok;
const n = 10;
var 
A:array[1..n] of integer;
i,k,max,sum:integer;
sr:real;
begin
k:=0;
sum:=0;
for i:=1 to n do
begin
read(A[i]);
if (A[i]>0) then
k:=k+1;
if (A[i]>0) then
sum:=sum+A[i];
end;
sr:=sum/k;
max:=A[1];
for i:=1 to n do
begin
if(A[i]> max) then
max:=A[i];
end;
writeln('Сумма пол. эл. массива = ', sum);
writeln('Кол-во пол. эл. массива = ', k);
writeln('Cредне арифметич пол. эл. ',sr);
writeln('Максимальное знач. элементов массива = ', max);
end.