Удаление из массива и подсчет среднего арифметического

Program Tri_zadanija;
var
 r:array[1..20] of real;
 nmax,nmin,i,n,q,m:integer;
 a,x,h,max,min,summ:real;        
 begin
    {Задание 1}
    writeln('Введите длину массива,n>0');    {Ввод данных}
    readln(n);
    writeln('Введитеa,x,h');
    readln(a,x,h);
    for i:=1 to n do              {Вычисляем массив}
       r[i]:=0.9*sin(2*a*x-i*h);
    writeln('Массив r[i]:');
    for i:=1 to n do             { Вывод массива }
       write(r[i]:10:4);
    readln;
 
    {Задание 2}
    nmax:=1;             {Находим максимальный элемент массива и его номер}
    max:=R[1];
    for i:=2 to n do
    if  R[i]>max then
 begin
      max:=r[i];
      nmax:=i;
 end;
    writeln;
    writeln('Максимальный элемент массива= ',max,' Его номер= ',nmax);
    writeln;
 
    {задание 3}
    nmin:=1;                {Находим минимальный элемент массива и его номер }
    min:=r[1];
    for i:=2 to n do
    if r[i]<min then
begin
     min:=r[i];
     nmin:=i;
end;
     writeln('Минимальный элемент массива=', min,' Его номер=: ',nmin);
     writeln;
             n:=nmin;    {Подсчет суммы элементов между максимальным и минимальным хначением }
             summ:=r[nmin];
             While n<>nmax do
     Begin
             n:=n+1;
             summ:=summ+r[i];
     end;
             summ:=summ / (Abs(nmax-nmin)+1);    {Превращаем сумму элементов в среднее арифметическое }
             Writeln ('Ответ= ', summ);
End.

uses crt;
const nmax=100;
var r:array[1..nmax] of real;
    n,k,i,j,imx,imn,i1,i2:byte;
    a,x,h,mx,mn,sr:real;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите a,x,h');
readln(a,x,h);
writeln('Массив:');
for i:=1 to n do
 begin
  r[i]:=0.9*sin(2*a*x-i*h);
  write(r[i]:6:2);
 end;
writeln;
writeln;
imx:=1;mx:=r[1];
for i:=1 to n do
if r[i]>r[imx] then
 begin
  imx:=i;
  mx:=r[i];
 end;
writeln('Максимальный элемент равен ',mx:0:2,' его индекс=',imx);
writeln;
if imx=1 then writeln('Максимальный элемент первый, удалений нет')
else
 begin
  k:=n;
  i:=1;
  while r[i]<mx do
  if r[i]>0 then
   begin
    for j:=i to k-1 do
    r[j]:=r[j+1];
    k:=k-1;
    imx:=imx-1;
   end
  else i:=i+1;
  writeln('Удаление положительных до максимального:');
  for i:=1 to k do
  write(r[i]:6:2);
 end;
writeln;
writeln;
imn:=1;mn:=r[1];
for i:=1 to k do
if r[i]<r[imn] then
 begin
  imn:=i;
  mn:=r[i];
 end;
writeln('Минимальный элемент равен ',mn:0:2,' его индекс=',imn);
writeln;
if abs(imn-imx)=1 then writeln('Нет среднего')
else
 begin
  if imn<imx then
   begin
    i1:=imn;
    i2:=imx;
   end
  else
   begin
    i1:=imx;
    i2:=imn;
   end;
  sr:=0;
  for i:=i1+1 to i2-1 do
  sr:=sr+r[i];
  sr:=sr/(imn-imx+1);
  write('Среднее между максимальным и минимальным=',sr:0:2);
 end;
readln
end.