Помогите с 2-мя задачами на тему типизированный файл.

[aleksandrdss]

1).Создать типизированный файл, содержащий вещественные числа. Из файла вещественных чисел удалить элементы, больше среднего арифметического.

2).Создать типизированный файл, содержащий 18 целых чисел. Найти максимальное число, имеющееся в файле.

[Stilet]

2).Создать типизированный файл, содержащий 18 целых чисел. Найти максимальное число, имеющееся в файле.

var f:file of integer;max,i:integer;
begin
{Создадим файл}
assign(f,'file1.txt');rewrite(f);
{Записать в файл числа}
i:=0; while (i<18) do begin write(f,random(100)); inc(i);end;
{Читать файл числа}
reset(f);max:=0;
while not eof(f) do begin read(f,i);if i>max then max:=i;end;
{Закроем файл}
close(f);
writeln(max);
end.

Из файла вещественных чисел удалить элементы, больше среднего арифметического.

Ну файл создавай так же и записывай так же, но тип переменкам дай real
По ходу записи в файл определяй среднее арифметическое

{считывание}
assign(f2,'file2.txt');rewrite(f2);
reset(f);max:=0;
while not eof(f) do begin read(f,i);
 if i>Среднее арифметическое then write(f2,i);
end;
Close(f2);close(f);
rename(f2,'file1.txt');

Смысл ясен?