Модуль, функция, файл, 3 задачи , пожалуйста помогите решить! Опции

[денис]

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

[Altair]

3.

Код

var
f:file of integer;
i,summ:longint;
max,k:integer;
fn:string;

begin
repeat
  readln(fn); {file name}
  assign(f,fn);
  {$I-} reset(f)  {$I+}
until IOResult=0;
{€йҐ¬ ¬ Єб. зЁб«®}
For i:=0 to (filesize(f)-1) do
begin
  seek(f,i);
  read(f,k);
  If k>max then max:=k
end;
For i:=0 to (filesize(f)-1) do
begin
  seek(f,i);
  read(f,k);
  If i=max then INC(summ)
end;
Close(f);
Writeln('Њ ЄбЁ¬ «м­®Ґ зЁб«® ў д ©«Ґ ',fn,' ўбваҐз Ґвбп ',summ,' а §.');
end.