Проблема с задачей на одномерный массив в Делфи 7

[puporev]

Чтобы не заморачиваться, прилагаю проект. Вводишь число, два раза жмешь Enter и число в ListBox1.

[sting]

Ну у меня так же почти! но он местами же не меняет!

[puporev]

Или я косоглазый, или у меня в ListBox2 максимальный и минимальный элементы меняются местами. По моему именно это в задании и требуется.

В целочисленном массиве А(10) найти максимальный и минимальный эле-менты и поменять их местами.

[sting]

всё заработало! Спасибо! у меня ещё правда есть некоторые вопросы

[sting]

Слушай объясни мне пожалуйста вот эту строчку!

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

Почему так скобки поставлены? а?

попобробней пожалуйста!