Решите задачу на паскале. Создать файл в котором записать несколько действительных чисел. Вывести все числа на экран.

program N86855238;
const
sum: double = 0;
var
f: file of double;
n, i: byte;
x: double;
begin
randomize;
assign(f, 'numbers.dat');
n := random(91) + 10;
rewrite(f);
for i := 1 to n do
begin
x := random * 100;
write(f, x)
end;
writeln('Создан файл numbers.dat с ', n, ' числами: ');
reset(f);
while not eof(f) do
begin
read(f, x);
write(x:8:3)
end;
seek(f, 0);
writeln(#13#10'Квадратные корни чисел: ');
while not eof(f) do
begin
read(f, x);
write(sqrt(x):8:3);
sum := sum + sqrt(x)
end;
close(f);
writeln(#13#10'Сумма квадратных корней = ', sum:0:3);
readln
end.