Сформировать вектор B[1:30] из случайных вещественных чисел в диапазоне [-10÷10]. Записать значения полученного вектора во внешний файл — Pascal(Паскаль)

uses crt;
const n=30;
var f:text;
    b:array[1..n] of real;
    i:byte;
    s:string;
begin
clrscr;
randomize;
write('Имя файла для записи  ');
readln(s);
s:=s+'.txt';
assign(f,s);
rewrite(f);
writeln('Вектор В:');
writeln(f,'Vektor B:');
for i:=1 to n do
 begin
  b[i]:=20*random-10;
  write(b[i]:0:2,' ');
  write(f,' ',b[i]:0:2);
 end;
close(f);
readln
end.