задачи на файлы в турбо паскаль

[rewq_q]

помогите решить ! если можете то напишите плз полностью весь код программы

1. в текстовом файле получчить длину каждой строки и записать её в типизированный файл
2. создать файл компонентами которого являются целые числа, удалить последние 10 элементов файла
3. а:создать файл, содержащий сведения об осмотре обуви в магазине. структура записи:наименование. стоимость одно пары!
в:определить наименование само дорогой пары обуви
4. дан файл, содержащий различные даты. каждая дата-это число, месяц, год. найти год с наименьшим номером.
5. имеется текстовый файл. получить другой файл, в котором в конце каждой строки заданного файла добавлен восклицательный знак.
6. создайте два типизированных файла одинакового размера, элементами которых являются отдельные буквы. получить третий файл, каждый элемент которого представляет собой сочетание соответствующих букв первого и второго файлов.
7. имеется текстовый файл. переписать его строки в перевёрнутом виде в другой фал. порядок строк во втором файле должен мовпадать порядку строк в заданном файле.
8. на процедуры! даны основания и высоты двух равнобедренних ттрапеций. найти периметр и их площадь. определить процедуру для расчёта периметра и площади равнобедренных трапеций по их основаниям и высотам!
9. на множества! пусть вводится последовательность чисел в диапазоне от 1 до 255ю признак конца последовательности=0. определите переменные макс и мин как максимальное и минимальное из введённых чисел. напечатайте по одному разу все числа из интервала (мин и макс).

[Stilet]

1. в текстовом файле получчить длину каждой строки и записать её в типизированный файл

var t:text;r:file of integer;s:string;
begin 
 assign(t,'afqk.txt');reset(t);assign(r,'lheujqafqk.notxt');rewrite(r); 
 while not eof(t) do begin readln(f,s);write(r,length(s);end ;
 close(t),close(r);
end;

а остальные показывай как сам думаешь.