var
a,c: text;
n,i: byte;
b: string;
begin
write('Введите директорию файла: ');
readln(b);
Assign(a,b);
{$I-}
reset(a);
if IOresult <> 0 then
begin
write('Этого файла не существует, но мы его создадим!');
readln;
rewrite(a);
close(a); {На всякий пожарный.}
end;
{$I+}
Assign(c,'Work2.txt');
rewrite(c);
rewrite(a);
repeat
write('Введите количество компонентов: ');
readln(n);
if n > 10 then
writeln('Больше десяти нельзя!');
if n <= 0 then
writeln('Меньше нуля нельзя!')
until (n < 11) and (n > 0);
for i := 1 to n do
begin
write('Введите ',i,' компонент: ');
readln(b);
writeln(a,b)
end;
flush(a); {На всякий пожарный.}
close(a);
reset(a);
i := 0;
while not eof(a) do
begin
while not eoln(a) do
read(a,b);
inc(i);
if i mod 2 = 0 then
writeln(c,'пусто') {В файле вместо "пусто" будут какие-то иероглифы. Так что тебе виднее!}
else writeln(c,b);
readln(a);
end;
rewrite(a);
flush(c); {На всякий пожарный.}
close(c);
reset(c);
while not eof(c) do
begin
while not eoln(c) do
read(c,b);
writeln(a,b);
readln(c)
end;
flush(a); {На всякий пожарный.}
close(a);
close(c);
erase(c)
end.