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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.