Поиск Мин/Макс значения а файле.

[leshij]

Всем привет!
Такая проблемка нарисовалась.
Надо в файле найти максимальное значение и уменьшить его и найти минимальное значение и увеличить его. И сохранить полученный массив в новом файле.
Вот код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure ReadArray(FileName:string; var A:array of integer; var N:integer);
var
  f: text;

begin
  assignFile(f, FileName);
  reset(f);
  N := 0;

  while not eof(f) do
  begin
    Readln(f, A[N]);
    N := N+1;
  end;

   closefile(f);
end;

procedure DecMax(var A: array of integer; N: integer);
var

  f: text;
  max: integer;

begin
  AssignFile(f, 'data.txt');
  Reset(f);

  N:=0;
  A[N] := max;

 while not eof(f) do
 begin
   Readln(f, A[N]);
   if A[N] < A[N+1] then A[N+1] := max;
   N := N+1;

 end;

  writeln('max elements = ', max);
  dec(max);
  writeln(max);

end;

procedure IncMin(var A: array of integer; N: integer);
var

  min : integer;
  f: text;
begin
   AssignFile(f, 'data.txt');
   Reset(f);
 //  Readln(f, A[N]);

  A[N] := min;

while not eof(f) do
 begin
   Readln(f, A[N]);
   if A[N] > A[N+1] then A[N+1] := min;
   N := N+1;
 end;

  writeln(min);
  inc(min);
  writeln(min);
end;          
var
  B: array[0..10000] of integer;
  N: integer;
begin
  ReadArray('data.txt',B,N);
  DecMax(B, N);
  IncMin(B,N);
  readln;

end.

почему-то как и максимальное так и минимальное выдаёт всегда 0. Что не так подскажите?

[filvika]

Работает..
Project2.txt

[Shift_sk]

удалено....