Создать файл с произвольным именем

[Aimet]

Создать файл с произвольным именем. Записать в него 10 членов арифметической прогрессии, первый член которой равен а, разность d.
Программу нужно выполнить на языке PascalABC.

[ИВэТэшка]

На обычном Turbo Pascal:

program test;
uses crt;
var a,b,d,i: integer;
    f: text;
begin
CLRSCR;
writeln('Enter a: ');
readln(a);
writeln('Enter d: ');
readln(d);
assign(f,'text.txt');
rewrite(f);
for i:=0 to 9 do
    begin
    b:=a+i*d;
    writeln(f,b);
    end;
close(f);
end.

[Aimet]

спасибо за помощь!!!