Работа с файлами(Pascal)

[Каролина18]

Задание1.
Дан файл f, компоненты которого являются действительными числами. Найти сумму
квадратов компонент файла f.

Задание 2.
Задан символьный (латинский алфавит) файл f. Получить файл g, созданный из файла f
заменой всех больших букв одноименными малыми.
Задание 3.
Напишите программу, которая считывает файл (текст любой вашей программы из этой
лаб. работы на языке Паскаль), затем создает новый текстовый файл на основе первого
файла, в котором в начале каждой строки будет проставлен ее номер в виде комментариев.

[cyber_NINJA]

1.

Uses crt;
Var f: file of double;
    res, elem : double;
BEGIN
 res:=0;
 Assign(f,'input');
 Reset(f);
 while (not(eof(f))) do
  begin
   read(f,elem);
   res:=res+elem*elem;
  end;
 Close(f);
 writeln('result= ',res);
 readln;
END.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.