Записать в файл 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.