program fill;
procedure print(var p:text);
var p1:string;
begin
reset(p);
writeln('***********************');
while not eof(p) do
begin
readln(p,p1);
writeln(p1);
end;
writeln('*******************');
close(p);
end;
procedure zap(var z:text);
var
z1:string;
begin
writeln('Zapolnite fail.Dlia zapolnenia vvedite pustuu stroku');
rewrite(z);
repeat
readln(z1);
if z1<>'' then
writeln(z,z1);
until z1='';
close(z);
end;
procedure obr(var t:text;var c :text);
var a,b:string;
begin
assign(c,'fail2.txt');
rewrite(c);
reset(t);
while not eof(t) do
begin
readln(t,a);
b:=a;
end;
writeln(c,a);
close(t);
reset(t);
readln(t,a);
writeln(c,a);
b:=a;
while not eof(t) do
begin
readln(t,a);
writeln(c,a);
end;
writeln(c,b);
close(t);
close(c);
rewrite(t);
reset(c);
while not eof(c) do
begin
readln(c,a);
writeln(t,a);
end;
close(c);
close(t);
end;
var
f,f1:text;
begin
assign(f,'fail.txt');
zap(f);
print(f);
obr(f,f1);
writeln('Fail posle obrabotki');
print(f);
readln;
end.