program ex1;
uses crt;
var
st1,st2,st3,slovo: string;
i,k,k1,k2,n,q:integer;
f:char;
begin
clrscr;
st1:='В этой строке пропущена буква';
st2:='В этой стоке пропущена буква';

if length(st1)>length(st2) then
begin
for i:=1 to length(st1) do
 if st1[i]<>st2[i] then
   begin f:=st1[i]; k:=2;  n:=i; break;
   end else st3:=st2;
end
   else  for i:=1 to length(st2) do
       if st2[i]<>st1[i] then
         begin f:=st2[i];k:=1; n:=i; break;
         end else st3:=st1;

for i:=n to length(st3) do
if st3[i]=' ' then begin k1:=i; break end;
for i:=n downto 1 do
if st3[i]=' ' then begin k2:=i; break end;
q:=k1-k2; slovo:=copy(st3,k2+1,q);
writeln('N1= "',st1,'"');
writeln('N2= "',st2,'"');
writeln('буква:',f:2,' пропущена в строке №:',k:2,' в слове "',slovo,'"');
end.