[maxmaslo]

добавил. не работает.

[poli-smen]

Сообщение от maxmaslo

добавил. не работает.

Что не работает?
Во-первых добавь перед последним begin строку "for i := 1 to N do" (без кавычек).
Во-вторых приведи содержимое Memo1 при котором этот код не работает.
В-третьих расшифруй что значит "не работает".

[maxmaslo]

1
2
3
4
5
6
7
8
9
10 - содержимое memo, про кавычки понял еще давно, не первый день в среде delphi. выводит нормально, только не меняя местами, если убрать эти две строчки:
m[j]:=min;
m[p]:=min;

[maxmaslo]

значит, вся суть ошибки в них

[poli-smen]

Сообщение от maxmaslo

выводит нормально, только не меняя местами, если убрать эти две строчки:
m[j]:=min;
m[p]:=min;

Зачем их убирать - они же и меняют местами элементы. И почему "m[p]:=min"? В исходнике же было "m[p]:=max" - так и должно остаться.

Сообщение от maxmaslo

значит, вся суть ошибки в них

Значит всё заработало?