Строки 79 - 86. Надо заменить на:
Код:
FOR I := 1 TO N DO CHISLA [ I ] := STRTOINT ( TABL.Cells [ 1 , I ] );// Тут загружаем список
PP_SORT ( N, CHISLA ); // Тут отправляем на сортировку
FOR I := 1 TO N DO TABL.Cells [ 2 , I ] := INTTOSTR ( CHISLA [ I ] ); // Тут выводим что получилось
Дальше думай сам как тебе удобней сортировать, в процедуре PP_SORT))