Дан файл F, компоненты которого являются действительными числами. Найти сумму компонент файла.

program mazur_2;
type
    TFileDbl=file of Double; 
 
function CreateF(var F:TFileDbl;ItemCount:Word):Boolean;
var
    d:Double;
begin
    Rewrite(F);
    CreateF:=true;
    if IOResult<>0 then CreateF:=false
    else begin
        while ItemCount>0 do begin
            d:=Random*100-50;
            Write(F,d);
            if IOResult<>0 then begin
                CreateF:=false;
                Exit;
            end;
            Dec(ItemCount);
        end;
        Close(F);
    end;
end;
 
function PrintF(Msg:String;var F:TFileDbl):Boolean;
var
    d:Double;
begin
    PrintF:=true;
    Reset(F);
    if IOResult<>0 then PrintF:=false
    else begin
        WriteLn(Msg);
        while not eof(F) do begin
            Read(F,d);
            if IOResult<>0 then begin
                PrintF:=false;
                Exit;
            end;
            Write(d:7:3,' ');
        end;
        WriteLn;
        Close(F);
    end;
end;
label err;
var
    F:TFileDbl;
    Sum2,d:Double;
begin
    Randomize;
    Assign(F,'file');
    if CreateF(F,Random(25)+1) then begin
        if PrintF('Items in file:',F) then begin
            Reset(F);   
            if IOResult=0 then begin
                Sum2:=0;  
                while not Eof(F) do begin
                    Read(F,d);
                    if IOResult<>0 then begin
                        WriteLn('Read file error');
                        goto err;
                    end;
                    Sum2:=Sum2+d*d;
                end;
                WriteLn('Sum of squares:',Sum2);
err:
                Close(F);
            end else WriteLn('Cannot open file');
        end else WriteLn('Cannot print file');
    end else WriteLn('Cannot create file');
    ReadLn;
end.