I solved this problem, but my program is wrong at 4 test.
Where is mistake?

var
l,k,j,m,n,mistake,o,sum,p,w:integer;  text1:string;
z,text:array[1..100]of string;
begin  o:=1;
repeat
inc(l);
readln(z[l]);
until z[l]='#';
dec(l);
repeat
inc(j);
readln(text[j]);
until text[j]=''; dec(j);
for k:=1 to l do
for m:=1 to j do
 begin
for n:=1 to length(text[m]) do
begin      text1:='';
while text[m][o] in ['a'..'z'] do
begin
text1:=text1+text[m][o]; inc(o);
end;
if length(text1)=length(z[k]) then
 begin
for w:=1 to length(z[k]) do
if text1[w]<>z[k][w] then inc(mistake);
if mistake=1 then
 begin
 inc(sum);
 for p:=1 to length(z[k]) do
  begin
  text[m][o-length(text1)+p-1]:=z[k][p];
  end;
 end;
mistake:=0;
end;  inc(o);
end;
o:=1;
(*----------------------*)
end;
for k:=1 to j do
writeln(text[k]);
writeln(sum);
end.

I also have WA 4. Does anybody know what is wrong with it?