Добрые люди помогите плз

[MerZavetZ]

Мне надо решить 3 задачи до послезавтра.решите плз.
1.Подсчитать среднюю длину строки в текстовом файле.Имя файла следует вводить с клавиатуры.Следует считать,что файл существует,и устройство, на котором он размещен готово к работе.Результат вывести на экран.

2.Дан типизированный файл F, компоненты которого являются действительными числами.
найти и вывести результаты:
а)наибольшое из положительных значений компонент файлаж
б)произведение наибольшего и наименьшего из значений компанент файлаж
в)сумму последней и первой компанент файла.



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

Заранее Спасибо!))

[-=<[Evklidd]>=-]

Вот тебе процедура, 3-я задача:

uses
 Crt;
...
procedure Print(s: string; color, x, y: word);
begin
 TextMode(3);
 TextColor(color);
 GoToXY(x,y);
 writeln(s);
end;

По остальным хотелось бы увидеть твои наработки или хотя бы уточни то, что тебе конкретно не понятно

[alex_fcsm]

type Data=integer;
var i,max,min,first,j:integer;
    f:file of Data;


begin
randomize;
j:=random(100)+1;
assign(f,'c:\1.int');
rewrite(f);
randomize;
for i:=1 to j do
 begin
  max:=random(20)+random(20);
  write(f,max);
 end;
close(f);
assign(f,'c:\1.int');
reset(f);
read(f,max);
first:=max;
min:=max;
while not(eof(f)) do
 begin
 read(f,j);
 if j>max then max:=j
    else if j<min then min:=j;
 end;
writeln('Max:',max);
writeln('Mult max*min:',min*max);
writeln('Summa first and last:',first+j);
end.