Задача Pascal(Массив)

[AyMosg]

Привет народ) кто сможет помочь)
Code PASCAL

--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//
Дан массив А1, …, А40.
Замените все элементы, стоящие между Amax и Amin или Amin и Amax, на 0.
--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//--//
Вот, что то написал) но не работает; точнее не правильно)

program Ex6;
var A: array[1..10] of real;
  Amin, Amax: real;
  N, i, k: integer;
begin
  writeln('BBOD MACCUBA A');
  for i := 1 to 10 do begin
    writeln('A[', i, ']=');
    read(A[i]); end;
  Amin := A[1]; N := 1;
  for i := 1 to 10 do
    if Amin > A[i] then begin
      Amin := A[i];
      N := i;
    end;
  Amax := A[1]; k := 1;
  for i := 1 to 10 do
    if Amax < A[i] then begin
      Amax := A[i];
      k := i;
    end;
  if N > k then begin
    for i := k to n do
      A[i] := 0;
  end;
  if k > N then begin
    for i := n to k do
      A[i] := 0;
  end;
  for i := 1 to 10 do
    writeln('A[', i, ']=', A[i]: 8: 2)
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Pein95]

алгоритм такой находиш индекс минимального и максимального и в етом промежутке замениваеш все елементы на 0
for index1 to index2 do
a[index1]:=0
вот както так...

[AyMosg]

Спасибо) сейчас подумаю)

[Novi4ok_11]

for i:=1 to 40 do 
begin
writeln ('A[',i,']=');
read(A[i]);
end;
max:=a[1];
for i:=1 to 40 do 
begin
if a[i]>max then maxi:=i;
end;
for i:=1 to 40 do 
begin
if a[i]<min then do mini:=i;
end;

if mini<maxi then 
begin
for i:=mini to maxi do a[i]:=0;
end 
else if mini>maxi then 
begin
for i:=maxi to mini do a[i]:=0;
end;