Записать в файл 10 цифр, вводимых пользователем

var  s: string;  ar: array[1..10] of integer;  f: text;  i: integer;begin;  for i := 1 to 10 do        read(ar[i]);  assign(f, 'text.txt');  rewrite(f);  for i := 1 to 10 do  begin;        str(ar[i], s);        write(f, s, ' ');  end;  close(f);end.