Zadatak, Pascal pomoć!!!!

Code:

Var
  F : File Of Real;
  R,
  Min,
  Max,
  Ari,
  Geo,
  Sum,
  Har : Real;

  Count : Integer;

begin
  Assign (F, 'podatak.dat');
  {$I-} Reset (F); {$I+}
  If IOResult <> 0 Then
      WriteLn ('Ne mogu da otvorim fajl podatak.dat!')
  Else
    Begin
      Read (F, R);
      Min := R;
      Max := R;
      Ari := R;
      Geo := R;
      Har := 1/R;
      Count := 1;
      Sum := R - Trunc (R);
      While Not Eof (F) Do
        Begin
          Read (F, R);
          If R < Min Then Min := R;
          If R > Max Then Max := R;
          Ari := Ari + R;
          Inc (Count);
          Sum := Sum + (R - Trunc (R));
          Geo := Geo * r;
          Har := Har + 1/R;
        End;
      Close (F);
      Ari := Ari / Count;
      Geo := exp (1/Count * ln(Geo));
      Har := Count /Har;
      WriteLn ('Minimalni element: ', Min);
      WriteLn ('Maksimalni element: ', Max);
      WriteLn ('Aritmeticka sredina: ', Ari);
      WriteLn ('Geometrijska sredina: ', Geo);
      WriteLn ('Harmonijska sredina: ', Har);
      WriteLn ('Suma decimala: ', Sum);
    End;
end.