Рекурсия

[Shadows_Behind]

Задание: Задан набор слов. Построить из них любую цепочку таким образом, чтобы символ в конце слова совпадал с символом в начале следующего.
Пишу в Delphi консольное приложение
Мой код

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
flag:boolean;
bukva:char;
st,st2,buf:string;
i,j,poz2,i2,poz1,poz3,flag3,m:integer;
begin                                       //1
writeln('Vvedite text:');
read(st);                            //считываем текст
st2:=st+' ';                         //ставим в конце пробел чтоб в одном месте в проге не зацикл
m:=length(st2);                   //запоминаем длинну
for I := 1 to m do                   
 begin                                      //2
 if st2[i]=' ' then                  //если наткнулись на пробел
  begin                                      //3
  bukva:=st2[i-1];                      //запоминаем предъидущую букву
  flag:=true;
  flag3:=1;
  j :=(i+1);
  while flag3 <> 2 do
   begin                                     //4
   if flag=true then
   poz1:=j+1;                                //запоминаем позицию след  буквы например ab sg
   flag:=false;
   if (st2[j]=' ') and (st2[j+1]=bukva) then //если дальше пробел и такая же буква
    begin                                         //5
    poz2:=(j+1);                           //запоминаем позицию 1 буквы напр ab sg bn gd
    i2 := poz2;
    while st2[i2]<>' ' do                 //идем вперед до пробела
    i2:=i2+1;
    poz3:=(i2-1);                          //запомин позиц послед буквы напр ab sg bn gd
    while poz2<>poz3 do                
     begin                                          //7
     buf[poz1]:=st2[poz2];             //записываем найденное слово в буфер
     poz1:=poz1+1;                          // тут почему то переходит к последнему end.
     poz2:=poz2+1;
     end;                                          //-7
    buf[poz1]:=st2[poz2];               // тут запомин последнюю тк она не запомнилась в цикле
    flag3:=2;
   end;                                       //-5
   j:=j+1;
  end;                                       //-4
 end;                                      //-3
end;                                    //-2
for i := 1 to m do
begin
if buf[i]='' then             //если пусто то
buf[i]:=st[i];                
end;
for I := 1 to m do
write(buf[i]);
readln;
end.                                 //-1

При попытке компиляции выкидывает просто, если проверять пошагово то в одном месте просто переходит к концу программы. В чем может быть ошибка? И похоже эт на рекурсию вобще?

[Katya3636]

Shadows_Behind попробуй вот здесь подписать слово windows

uses
SysUtils, windows;

вот так

[Пепел Феникса]

Katya3636, зачем, апи не используется тут напрямую?
у него компилится, просто не работает.
ТС, оформи код по человечески(отступы и тд)

[Katya3636]

Пепел Феникса, я просто сразу внимание на это обратила, т.к. недавно у самой проблема была аналогичная, и виною было слово windows, точнее его нехватка )))))))
Ксати, посмотри пожалуйста эту тему http://www.programmersforum.ru/showthread.php?t=99598 , может сможешь помочь, там одной функции всего лишь не хватает..)

[Katya3636]

я просто сразу внимание на это обратила, т.к. недавно у самой проблема была аналогичная, и виною было слово windows, точнее его нехватка )))))))
Ксати, посмотри пожалуйста эту тему http://www.programmersforum.ru/showthread.php?t=99598 , может сможешь помочь, там одной функции всего лишь не хватает..)

[Shadows_Behind]

Пробовал добавить uses windows, не помогло зато теперь он начал после компиляции писать [DCC Warning] Project1.dpr(40): W1036 Variable 'poz1' might not have been initialized в этой строчке buf[poz1]:=st2[poz2]; Почему то не хочет повторно обращатся к poz1, но если делать пошагово на F8, там с poz1 все впорядке она будет содержать число.
Попробовал ввести левую переменную l

while poz2<>poz3 do
begin
l:=poz1;                                          
buf[l]:=st2[poz2];
poz1:=poz1+1;                          
poz2:=poz2+1;
end;

начал вылетать на строке l:=poz1;

[Shadows_Behind]

Проблемма решилась когда я включил {$H-} то биш сделал все строки короткими, ему видать с ними приятней работать)) Но та лабуда, что я написал выше работает некорректно и
я переделал программу она работала, но немного некоректно не очищались буферы я ее модернизировал и теперь появилась другая проблемма,у меня есть переменная buf:array[1..20] of char; и запись со строковой переменной(Note[z].stroka[l]);
когда я хочу присвоить записи значение буфера он пишит ошибку Incompatible types: 'Char' and 'PAnsiChar' вопрос в следующем как теперь мне сделать чтоб в переменная buf стала PAnsiChar?