В линейном массиве каждый элемент встречается дважды. Какие два равных элемента наиболее удалены друг от друга — Pascal(Паскаль)

program b;

var
  m: , i, j, n: integer;
  a: array of integer;
m := 0;

begin
  for i := 1 to n do
    for j := i to n do
      if a[i] = a[j] then
        if abs(i - j) > m then
        begin
          m := abs(i - j);
          t := i;
          k := j;
        end;
  writeln('Element = ', a[t]);
  writeln('Index = ', t, ' and ', k);

end.