Нужна помощь, буду очень благодарен.
Создайте файл f, компоненты которого являются действительными числами. Напишите программу вычисления суммы компонентов файла f и произведения ненулевых компонентов этого файла.
Язык программирования: Pascal

cvar  f: Text;  k: integer;  s, p: longint;  i: integer;begin  Assign(f, 'output.dat');  Rewrite(f);  writeln('Вводите данные, окончание число 7777');  repeat    read(k);    if k<>7777 then writeln(f,k)    until k=7777;  Close(f);  Reset(f);  s := 0;  p := 1;  writeln;  while not Eof(f) do   begin    readln(f, k);     write(k:4);    s := s + k;    if k <> 0 then p := p * k  end;  Close(f);  writeln;  writeln('Сумма= ', s, ', произведение= ', p)end.Вводите данные, окончание число 777736-462-3-42605-17777   3   6  -4   6   2  -3  -4   2   6   0   5  -1Сумма= 18, произведение= 622080

uses crt;var f:text;    i,x,sm,n:integer;     pr:longint;beginrandomize;clrscr;pr:=1;assign(f,'f.txt'); rewrite(f);writeln('Введите число заполнений (например 6, в файле будет шесть натуральных чисел) ?'); readln(n);for i:=1 to n dobeginwrite(i,') ');readln(x);writeln(f,x);end;close(f);reset(f);while not Eof(f) dobeginread(f,x);sm:=sm+x;if x <> 0 then pr:=pr*x;end;if n <> 0thenbeginwriteln;writeln('Сумма всех чисел = ',sm);writeln('Произведение всех чисел = ',pr);end else writeln('Файл пустой.');readkey;close(f);end.