Найти все слова, отличающиеся от заданного на 1 букву и имеющую ту же длинну.

[gred]

Нашёл слова с одинаковым размером а как найти все слова, отличающиеся от заданного на 1 букву
вот таже длинна слова

uses crt;    var
s,s2,s3:string;
i,k,n:integer;
begin
readln(s);   {введите текст}
readln(s2); {ВВелите 1 слово}
for I:=1 to length(s) do   begin
while s[i]<>' ' do
if s[i+1]=' '  then n:=i;
if n=length(s2) then
for k:=1 to n do
s3:=s3+s[k];
end;
writeln(s3);
readln;
end.

пробовал как угодно так что мысль нет
Мож кто знает? буду благодарен

[Stilet]

Намекну:

var a,b:string;k:boolean;i:integer;
begin
a:='12345';
b:='12345';
//********* FOR ******************
for i :=1  to length(a)  do
begin
 k:=a[i]=b[i];
 if not k then begin Caption:='oo';break ;end;
end;
//******* END FOR ****************{}

end;

[gred]

что такое Caption?
Да и поправте код нахождения слов с одинаковой длинной чтот неработает

ау помогите плизз....
преподу сегодня по почте надо отослать(

[Карась]

Сообщение от gred

что такое Caption?
Да и поправте код нахождения слов с одинаковой длинной чтот неработает

В данном коде наверное ничево. Это пример.

Проверка на отличия:
Пройтись циклом по слову.
В блоке If сравнивать равны ли буквы.
Если не равны то +1.
Если была попытка приплюсовать второй раз то Выход из цикла и начинать сравнивать два других слова.
Анализировать результат работы этого цикла.
1 - слова отличны на одну букву.
2 - слово имеет больше различных букв.
0 - слова равны.

[alexBlack]

Неужели за 3 часа ничего не придумали ?

var s, s2, s3:String;
    i, k, n, L:integer;
begin
   readln(s);   {введите текст}
   readln(s2);  {ВВелите 1 слово}

   s := s + ' ';
   k := 0;              { счетчик различий }
   n := 0;              { длина текущего слова }
   L := length(s);
   for i:=1 to L do begin
      if (s[i] = ' ') then begin
         if (n = length(S2)) and (k = 1) then begin
            s3 := copy(S, i-n, n);
            writeLn(s3);
         end;
         n := 0; k := 0;
      end else begin
         inc(n);
         if (n <= length(s2)) and (s[i] <> s2[n])
         then inc(k);
      end;
   end;
   readln;
end.

[Stilet]

что такое Caption?
Да и поправте код нахождения слов с одинаковой длинной чтот неработает

Ну замени Caption на Writeln
Ничего тут поправлять не надо, он прекрасно работает.