Текстовой файл

[Happiness♥]

Помогите решить задачи, очень нужно.
1) Записать в файл 2n целых чисел. Переписать в другой файл последние n элементов исходного файла.

2)Записать в файл n целых чисел. Найти максимальное четное число файла. Записать в новый файл элементы исходного файла, исключая найденный элемент

3)Перезаписать файл f целыми 3n числами, полученными с помощью генератора случайных чисел. Переписать элементы в этом же файле так, чтобы в каждой тройке подряд идущих элементов первый и второй элемент поменялись местами: первый со вторым, четвертый с пятым, седьмой с восьмым и т.д.

[rubius2008]

1)

assign(f,'MyFile.txt'); rewrite(f);
for i:=1 to 2*n do begin x:=random(20); writeln(f,x); end;
close(f);
reset(f);
assign(g,'MyFile2.txt'); rewrite(g);
for i:=1 to n do readln(f,x);
for i:=1 to n do begin readln(f,x); writeln(g,x); end;
close(g);

с вопросами по поводу написания полноценных программ пишите в асю