Код: Выделить всё
var
F,G,H:text;
S:string;
sc:char;
I,N:integer;
begin
writeln('vvedite 4islo strok : ');
readln(N);
Assign(F,'c:\ffile.txt');
Rewrite(F);
for i:=1 to N do
begin
readln(S);
writeln(F,S);
end;
close(F);
Reset(f);
Assign(G,'c:\gfile.txt');
Rewrite(g);
Assign(H,'c:\hfile.txt');
Rewrite(H);
while not eof(f) do
begin
read(f,sc);
case sc of
'1'..'9','0':write(g,sc);
'a'..'z':write(h,sc);
end;
end;
close(F);
close(G);
close(H);
end.