Файлы, Файловые типы Опции

[ManyaK]

Люди пожалуйста помогите сделать программы по файлам у меня что-то плохо получается!!!
Очень сильно нужно PLZZZ!!!

1. Создать файл вещественных чисел. Переписать в другой файл его компоненты, сначала положительные, затем отрицательные.
2. Дан текстовый файл F. Записать в файл F1, компоненты файла F, заменив все прописные буквы на строчные.
3. Дан файл F, компоненты которого являются целыми числами. Найти сумму всех четных чисел среди компонент.

[Анна]

Задача №2:

uses crt;
const
Q = ['A'..'Z', 'А'..'Я'];
var
   f1, f : text;
     B : char;
   x, i  : integer;

begin
   clrscr;
   assign(f,'c:\test.txt');
   reset(f);

   assign (f1, 'c:\test1.txt');
   rewrite(f1);

 while not eof (f) do begin
   read (F, B);

if b in q then begin x:=(ord(b)+32);
b:=chr(x); x := x+1; end;

   write(f1,b);
end;
   writeln ('Все прописные буквы были заменены на строчные');
   write ('Клавиша для выхода ...');
   readln;
   close(f);
   close(f1);
end.