Подскажите где ошибка??? - вопрос №257484

Задача: В одномерном массиве Х(15) найти: минимальный из элементов, больших двух, и поменять его местами с первым. Программа на языке Паскаль.Подскажите где в ней ошибка? Не могу найти! Правильно ли написана программа?

Program pr3;

  Const

                   n=15;

                   X:array[1..n]of integer=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);

         Var min,t:real;i,imin:integer;

         Begin

      min:=10000;

      writeln('введите X[15]');

      read;

         for i:=1to n do

                  if X[i]<min then

    Begin min:=X[i];imin:=i;

    End;

 writeln('min=',min:6:2,'imin=',i);

 t:=X[imin];

 X[imin]:=X[0];

 X[0]:=t;

 writeln('изменённый массив')

 for i=1 to 15 do

 write(X[i]);

End.