Небольшое изменение. Чтобы просмотреть массив с конца, в цикле используется оператор downto вместо to:
Код:
for i := High(A) Downto Low(A) do ...
только сейчас в задании увидел что это надо использовать.
З.Ы. Вот
это,
это, да и
это, возможно и
это, с натяжкой и
это
может пригодиться для второго задания. Поиск у нас на сайте отлично работает, если что.
Да и у меня в сорцехране вот такое завалялось, матерьялу под это дело море, учитесь на здоровье, как говорится лишь бы в прок пошло