Дaн фaйл f, компонeнты которого являются дeйствитeльныe числa. Нaйти модуль суммы и квaдрaт произвeдeния компонeнтов фaйлa — Pascal(Паскаль)

uses crt;
var f:file of real;
    a,ms,p:real;
    i:byte;
begin
clrscr;
randomize;
assign(f,'file');
rewrite(f);
for i:=1 to 10 do
 begin
  a:=10*random-4;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
p:=1;
ms:=0;
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:0:2,' ');
  ms:=ms+a;
  p:=p*a;
 end;
close(f);
writeln;
writeln('Модуль суммы=',abs(ms):0:2);
writeln('Квадрат произведения=',sqr(p):0:2);
readln
end.