максимальная разница между порядковыми номерами одинаковых элементов

[счастливая]

15Дан целочисленный массив из 50 элементов. Элементы массива могут принимать значения от 100 до 150 — сведения о сборе пшеницы с одного гектара земли. Опишите на языке программирования алгоритм, который находит максимальную разницу между порядковыми номерами гектаров, с которых собрали одинаковое количество пшеницы. Гарантируется, что есть по крайней мере одна пара элементов с одинаковыми значениями. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные не объявленные ниже, но разрешается не использовать часть из них.
const N = 50;
var A: array[1..N] of integer;
i, j, max: integer;
begin
for i:=1 to N do
readln(A[i]);
…
end.

[Serge_Bliznykov]

примерно так:

max := -1;
for i:=1 to N-1 do
  for j:=i+1 to N do
    if A[i]=A[j] then
      if (j-i)>max then max := (j-i);

  writeLn('максимальная разница равна ',max:1);
  readln;

[счастливая]

спасибо большое)