Паскаль нужно найти ошибку

[kolit]

Неактуально

[Gambler]

третья снизу строка. Меньше пользуйся копипастами.

[Wild_klas]

x:=a[imax];
a[imax]:=xmin;
xmin:=x;

y:=a[imin] ;
a[imin]:=xmax;
xmax:=y;

writeln('a ',xmin,'=',a[imax]);
writeln('a ',xmax,'=',a[imin]);

по моему так.

[Gambler]

в примеры индусского кода....

[kolit]

Да это попутал, но все равно программа работает некорректно при компиляции не выдает ошибки при запуске максимальные элемент массива выдает нормально, а минимальный левый и ошибка при смене результата