Как написать программу на Pascal, что бы данные брались из блокнота, данные в блокноте (0 0 0 0 0 0 0 0 0 1 0 0), а в самом Pascal эти данные забивались в ячейки массива, размерность которого [1..12], после чего, нужно вывести результат из массива в паскале или же в отдельный текстовый документ.
program l;
var f1,f2:text;
n,s:integer;
i:byte;
mas:array [1..12] of integer;
begin
assign (f1,'inp.txt');
reset(f1);
readln(f1,n);
for i:=1 to n do
readln (f1,mas[i]);
close(f1);
assign (f2,'res.txt');
rewrite(f2);
s:=0;
for i:=1 to n do
s:=mas[1];
writeln(f2,s);
close(f2);
writeln ('Второй файл');
reset(f2);
while not eof (f2) do
begin
readln(f2,s);
writeln(s);
end;
readln;
end.