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

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