Нужно исправить программу. Free Pascal

[Angelique]

Помогите, пожалуйста, исправить программу. Нужно подсчитать количество элементов массива, больших среднего арифметического значения всех его элементов.
Само задание:
Дан текстовый файл размером не более 64 Кб, содержащий действительные числа, по одному в каждой строке. Переписать содержимое файла в массив, разместив его в динамически распределяемой памяти. Вычислить среднее значение элементов массива. Очистить динамическую память. Создать целый массив размером 10000, заполнить его случайными целыми числами в диапазоне от –100 до 100 и вычислить его среднее значение.

Program Srednee;
  Const NMax = 10000;
  Type Diapazon = 1..NMax;
       MasInt = Array[Diapazon] Of Integer;
       MasReal = Array[Diapazon] Of Real;
  Var PInt : ^MasInt; PReal : ^MasReal;
      I, Midint : longInt; MidReal : Real; 
      T : Text; S : string;
Begin
  Write('Введите имя файла: '); ReadLn(S);
  Assign(T, S); Reset(T); 
  MidReal:=0; MidInt:=0;	{Подготовка к суммированию}
  Randomize;
  NEW(PReal); 	{Выделение памяти под вещественный массив}
  {Ввод и суммирование вещественного массива}
  I:=0;
  While Not Eof (T) Do
  Begin Inc(I);
        ReadLn(T, PReal^[I]); 
        MidReal := MidReal + PReal^[I];
  End;
  DISPOSE(PReal);	{Удаление вещественного массива}
  NEW(PInt); 		{Выделение памяти под целый массив}
  {Вычисление и суммирование целого массива}
  For I := 1 To NMax Do
  Begin PInt^[I] := -100 + Random(201);
        Write (Pint^[I]:4); 
        MidInt := MidInt + PInt^[I] 
  End;
  Writeln;
 			{Вывод средних значений:}
  WriteLn('среднее целое равно: ', MidInt Div NMax);
  WriteLn('среднее вещественное равно: ', (MidReal/NMax):10:4)
  Close(T)
End.

[TinMan]

После того, как среднее значение уже вычислено (кстати, положи его в какую-то переменную, а не просто выводи), поставь еще один цикл по всем элементам массива. В этом цикле увеличивай на единицу счетчик (его тоже надо завести в переменных и обнулить перед подсчетом) нужных элементов при их встрече.
Если что-то нечсно - спрашивай. Успехов.

[Angelique]

Сообщение от TinMan

...Если что-то нечсно - спрашивай. Успехов.

Спасибо огромное.

Program Srednee;
  Const NMax = 10000;
  Type Diapazon = 1..NMax;
       MasInt = Array[Diapazon] Of Integer;
       MasReal = Array[Diapazon] Of Real;
  Var PInt : ^MasInt; PReal : ^MasReal;
      I, Midint : longInt; MidReal : Real;
      T : Text; S : string;
      x:integer; y:real;
Begin
  Write('Vvedite imja fajla: '); {Podgotovka k summirovaniyu}
  ReadLn(S);
  Assign(T, S); Reset(T);
  MidReal:=0; MidInt:=0;	{Vydelenie pa}
  Randomize;
  NEW(PReal); 	{Выделение памяти под вещественный массив}
  {Ввод и суммирование вещественного массива}
  I:=0;
  While Not Eof (T) Do
  Begin Inc(I);
        ReadLn(T, PReal^[I]);
        MidReal := MidReal + PReal^[I];
  End;
  DISPOSE(PReal);	{Удаление вещественного массива}
  NEW(PInt); 		{Выделение памяти под целый массив}
  {Вычисление и суммирование целого массива}
  For I := 1 To NMax Do
  Begin PInt^[I] := -100 + Random(201);
        Write (Pint^[I]:4);
        MidInt := MidInt + PInt^[I];



  End;
  Writeln;

  for i:=1 to NMax do
  begin
  if PReal[i]>MidInt Div Nmax then
  y:=y+1; end;
  for i:=1 to NMax do
  begin
  if PReal[i]>MidInt Div Nmax then
  x:=x+1; end;

 			{Вывод средних значений:}
  WriteLn('srednee celoe ravno: ', MidInt Div NMax);
  WriteLn('srednee vewestvennoe ravno: ', (MidReal/NMax):10:4);
  readln;
  Close(T)
End.

У меня не выходит.
Помогите, пожалуйста.

[Slym]

Program Srednee;

{$APPTYPE CONSOLE}


  Const NMax = 10000;
  Type Diapazon = 1..NMax;
       MasInt = Array[Diapazon] Of Integer;
       MasReal = Array[Diapazon] Of Real;

  Var PInt : ^MasInt; PReal : ^MasReal;
      I, Len, Sum : integer; Mid: Real;
      T : Text; S : string;
Begin
  Write('Vvedite imja fajla: '); {Podgotovka k summirovaniyu}
  ReadLn(S);
  Assign(T, S); Reset(T);
  Mid:=0;

  NEW(PReal);
  Len:=0;
  While (Not Eof (T)) and (len<NMax) Do
  Begin
    Inc(Len);
    ReadLn(T, PReal^[Len]);
    Mid := Mid + PReal^[Len];
  End;
  Close(T);
  Mid:=Mid/Len;

  Sum:=0;
  for i:=1 to Len do
  begin
    if PReal^[i]>Mid then
      Sum:=Sum+1;
  end;
  DISPOSE(PReal);
  WriteLn('srednee vewestvennoe ravno: ', (Mid):10:4);
  WriteLn('kolvo bolshe: ', Sum);

  NEW(PInt);
  Randomize;
  For i := 1 To NMax Do
  Begin
    PInt^[i] := -100 + Random(201);
    Write (Pint^[I]:4);
    Mid := Mid + PInt^[I];
  End;
  Mid:=Mid/NMax;

  Sum:=0;
  for i:=1 to NMax do
  begin
    if PInt^[i]>Mid then
      Sum:=Sum+1;
  end;
  DISPOSE(PInt);
  WriteLn('srednee celoe ravno: ', (Mid):10:4);
  WriteLn('kolvo bolshe: ', Sum);
  readln;
End.

[Angelique]

Спасибо!!!