NKEDIT - Hiệu chỉnh văn bản
Tác giả: flashmt
Ngôn ngữ: Pascal
var n,kq:byte;
a,b:string;
procedure re;
begin
readln(n);
readln(a);
readln(b);
end;
procedure pr;
var la,i,j,k:byte; kt:boolean; c:string;
begin
kq:=0;
repeat
kt:=false;
la:=length(a);
for i:=la downto n do
begin
for j:=1 to la-i+1 do
begin
c:=copy(a,j,i);
k:=pos(c,b);
if k>0 then
begin
inc(kq);
kt:=true;
delete(b,k,i);
delete(a,j,i);
end;
if kt then break;
end;
if kt then break;
end;
until not kt;
end;
procedure wr;
begin
writeln(kq);
writeln(a);
write(b);
end;
begin
re;
pr;
wr;
end.