Паскаль абс

[Roll1n]

1)Вычислить массив R[1:n]
в соот. с формулой
r[i]=2cos(3ax-ih)
i=1,n
x,h,a-заданы
2)из вычисленного массива R удалить все отрицательные элементы,расположенные до минимального
3)в полученном массиве R[1:k],где k-число эл-ов,оставшееся после удаление,подсчитать:
среднее арифметическое эл-ов,расположенных между первым и последним положительными элементами

Вот задача,с 1,2 частью я справился
Нужно доделать 3

{Лабораторная работа 2}
Program lab2;
Uses Crt;
Const lmax=1000;{максимальная длина массивов}
Type mass=array[1..lmax] of real;
Var R:mass;
i,k,n,nmin:integer;
a,x,h,min:real;
begin
clrscr;
writeln('Лабораторная работа 2');
{задание 1}
writeln('Задание 1');
{ввод исходных данных для задания  1};
writeln('Введите длину массива до 1000');
read (n);
writeln('Введите "a" , "x" , "h" ');
read(a,x,h);
for i:=1 to n do begin
R[i]:= 1.5*cos(3*a*x+i*h);
write('   R[', i ,']=',R[i]:5:3);
end;
for i:=1 to n do
if r[i]<min then
begin
min:=r[i];
nmin:=i;
end;
for i:=1 to n do
if r[i]<0 then r[i]:=r[i+1];
for i:=1 to n do
write(r[i]:4:2, ' ');
end.

Это код к 1,2 заданию

{Лабораторная работа 2}
Program lab2;
Uses Crt;
Const lmax=1000;{максимальная длина массивов}
Type mass=array[1..lmax] of real;
Var R:mass;
i,k,n,nmin:integer;
a,x,h,min:real;
begin
clrscr;
writeln('Лабораторная работа 2');
{задание 1}
writeln('Задание 1');
{ввод исходных данных для задания  1};
writeln('Введите длину массива до 1000');
read (n);
writeln('Введите "a" , "x" , "h" ');
read(a,x,h);
for i:=1 to n do begin
R[i]:= 1.5*cos(3*a*x+i*h);
write('   R[', i ,']=',R[i]:5:3);
end;
for i:=1 to n do
if r[i]<min then
begin
min:=r[i];
nmin:=i;
end;
for i:=1 to n do
if r[i]<0 then r[i]:=r[i+1];
for i:=1 to n do
write(r[i]:4:2, ' ');
end;
k:=n-k;
for i:=2 to k-1 do
sum:=sum+r[i];
end;
n:=0;
repeat
  n:=n+1;            {номер 1го положительного массива}
until a[n]>0;
m:=10; {кол-во элементов массива}
repeat
  m:=m-1;
until a[m]>0;          {номер последнего эл-та массива}
for j:=n to m do
 begin
  sum:=sum+a[j]
 end;
write('n=', n,' m=',m,' srednee arifm=',sum/(m-n+1));
readln;
end;
end.

код к 1,2,3

Но выдает ошибку,помогите доработать

k:=n-k;
for i:=2 to k-1 do
sum:=sum+r[i];
end;
n:=0;
repeat
  n:=n+1;            {номер 1го положительного массива}
until a[n]>0;
m:=10; {кол-во элементов массива}
repeat
  m:=m-1;
until a[m]>0;          {номер последнего эл-та массива}
for j:=n to m do
 begin
  sum:=sum+a[j]
 end;
write('n=', n,' m=',m,' srednee arifm=',sum/(m-n+1));
readln;
end;
end.

Код к 3 заданию

[.Phoenix]

Программа уже решена