Помогите с прогой плз

procedure TForm1.Button1Click(Sender: TObject);
const
  ArrSize = 10000;
  Fn = 'file.dat';
type
  TArr = array[1..ArrSize] of Extended;
var
  F : file of Extended;
  PArr : ^TArr;
  Num : Extended;
  i, IMax : Integer;
  FileName : String;
begin
  //Полное имя файла данных, который будет располагаться
  //в той же папке, где лежит исполняемый файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  //Создаём типизированный файл вещественных чисел
  //и записываем в него ArrSize элементов.
  AssignFile(F, FileName);
  Rewrite(F);
  Randomize;
  for i := 1 to ArrSize do begin
    case i of
      //Для облегчения проверки, в явном виде записываем 2 максимума.
      2000, 5000 : Num := 1000;
      //Все остальные значения - это случайные вещественные числа
      //из диапазона 0..100.
      else Num := Random * 100;
    end
    Write(F, Num);
  end;
 
  //Размещаем массив в динамической памяти.
  New(PArr);
  //Заполняем массив значениями из файла.
  Reset(F);
  i := 1;
  while not Eof(F) do begin
    Read(F, PArr^[i]);
    Inc(i);
  end;
  //Закрываем файл.
  CloseFile(F);
  
  //Определяем первый максимум.
  //Первый максимум будет: PArr^[2000] = 1000.
  IMax := 1;
  for i := 2 to ArrSize do begin
    if PArr^[i] > PArr^[IMax] then IMax := i;
  end;
 
  //Ответ.
  ShowMessage(
    'Первый максимум: PArr^[' + IntToStr(IMax) + '] = '
    + FloatToStr(PArr^[IMax])
  );
  //Удаляем массив из динамической памяти.
  Dispose(PArr);
end;