Файлы и записи Опции

[TRIUM]

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

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

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