Задача на строки, про две строки Опции

[Fatality]

Кто-нибудь ПОМОГИТЕ!!! В понедельник ЛАБОРАТОРНАЯ, надо сдать эту задачу!! Заранее ОЧЕНЬ БЛАГОДАРЕН!!!!

Задача:
Даны две одинаковых строки, в одной из них пропущена буква. Определите, в какой строке, в каком слове и какая буква.

[Altair]

А лабораторные Нечаев принимает, да? ;)

ну и что тут такого?
сравниваешь поэлементно все символы и узнаешь какая буква и в какой строке.
А узнав строку, и номер символа, можешь вывести слово.

[Amro]

Типа вот так мона.............

Код

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.

[Гость_Fatality]

Ещё раз спасибо!!!!!
Ты меня реально ВЫРУЧИЛ!!! :D :D