Работа с файлами

[МартинИ]

Организовать файлы для масива записей, варианты которых приведенны ниже. Программа должна состоять с нескольких процедур, а именно процедура ввдения информции в файл, процедура обработки и процедура просмотра начальных данных и результатов.

Вариант:
С помощью генератора случайных чисел создать типизованный файл целого типа с компонентами диапазона от -200 до 200. Реализовать программу, что находит и выводит на экран следующую информацию:
1. Самый большой элемент файла.
14.txt

[МартинИ]

Начала писать, а вот дальше незнаю как((

[Sazary]

program lab_14;
uses crt;
var f:file of integer;
n,i,x,max,min:integer;
begin
clrscr;
write('Vvedit kilkist elementiv fajla  ');
readln(n);
assign(f, 'f1.txt');
rewrite(f);
max:=-300;
min:=300;
for i:=1 to n do
begin
x:=-200+random(400);
write(f,x);
write(x,'  ');
end;

close(f);
reset(f);
read(f,max);
for i:=2 to n do
 begin
 read(f,x);
 if x>max then max := x;
 end;
writeln;
writeln('Max= ',max);
close(f);

readln;
end.

[МартинИ]

ооооооооооооо, большое спасибо)))))))