Написать программу, которая на сменном диске компьютера (А) создает файл numbers. txt и записывает в него 5 введенных

( Создает на диске А: файл и записывает в него 5 целых чисел, введенных пользователем}
 var
     f: text;   { текстовый файл )
     n: integer; { число }
      i: integer; { счетчик чисел }
begin
writeln ('Создание файла') ;
writeln ('Введите пять целых чисел.1);
writeln ('После ввода каждого числа нажимайте <Enter>'); Assign (f, 'a:\numbers.txt' );
 Rewrite(f); { открыть в режиме перезаписи }
 for i:=l to 5 do
      begin
          write ('->');
          readln(n);
          writeln(f,n);
      end;
close(f);    { закрыть файл }
       writeln ('Введенные числа записаны в файл ', ' а: \nunibers. Txf)
       readln;
 end.