Пожалуйста, не закрывайте мою тему, мне очень срочно нужны эти программы.

1. const n=300;
type запись=record ключ:integer;
тело:array [1.99] of `a`..`z`
end;
таблица=array [1..n] of запись;
Считая, что в таблице записи имеют различные ключи, опи-
сать процедуру упор(Т), упорядочивающую записи таблицы Т
по возрастанию их ключей.

2. Исходный файл содержит целые числа, записанные словами. Слова записаны прописными русскими буквами и отделены друг от друга пробелом(запятой). Новое число записано с новой строки. В файле содержатся числа в диапазоне от 1 до 10. Необходимо определить сумму этих чисел и записать в выходной файл в том же виде.

1. берешь любой алгоритм сортировки (поиск+FAQ) и... в чем проблема?
2. Создай таблицу соответствия чисел и строк-их названий... И напиши ф-цию, возвращающую по строке цифру (число).

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

TRIUM, вот тут показано, КАК ее написать и вызывать: Как упорядочить данные по возрастанию?

записи - нет. но integer'ы можно.
насколько я вижу:

Всем спасибо, все получилось.