Программа с целочисленным массивом

[SplitSHDN]

Помогите написать программу:

Ввести целочисленный массив и отсортировать его по возрастанию второй справа цифры
(для однозначных чисел вторая слева цифра ноль)

[Serge_Bliznykov]

а давайте так поступим, Вы напишите программу, которая вводит целочисленный массив и банально сортирует его по возрастанию, а я подскажу (покажу) одну строчечку в программе, которую надо изменить (заменить), чтобы сортировалось по второй справа цифре?...

[Анатоль]

Действительно, напиши обычную сортировку массива, и потом вместо сравнения 2ух чисел воспользуйся примерно такой функцией.
function Sravn(integer x,integer y):boolean
begin
x = (x div 10) mod 10;//Тут мы выделяем 2ую справа цифру.
y = (y div 10) mod 10;// То же самое
if (x < y)
return true
else
return false;
end;
За синтаксиксическую помощь не ручаюсь, потому что уже несколько лет не писал на Паскале.