Какое здесь условие для выхода из рекурсии???

[Татьяна Brabus )]

Вот программа....когда запускаешь - вероятно происходит зацикливание...не могу додуматься, какое должно быть условие для выхода из рекурсии.....

program C7; // Написать рекурсивную программу-функцию
//нахождения наименьшего десятичного натурального
//числа N>1, оканчивающегося цифрой q такого, что если
//перенести эту цифру из конца в начало N, то полученное
//число окажется в q раз больше N.

uses
  SysUtils,
  Math;

procedure recursia(i: integer);
var n,k: integer;
  begin
for n:=1 to 9 do begin
  for k:= 0 to 9 do
  i:=10*n+k  end;
if i= k*10+n then writeln(i)
else recursia(i+1) 
 end;
{$APPTYPE CONSOLE}

begin
   recursia(10);
   readln;
end.

[evg_m]

for n:=1 to 9 do begin
  for k:= 0 to 9 do
  i:=10*n+k  end;

какова по вашей логике задача этого цикла
поскольку по логике транслятора это эквивалентно следующему
i:=10*9+9;(последние итерации циклов (n=9 k=9) или i:=99;

далее значение переменных k т вне цикла (как у вас)

if i= k*10+n then writeln(i)
else recursia(i+1)

строгого говоря в Delphi является непредсказуемым (может быть каким угодно например -1(минус один) или 999
стало быть почти наверняка выполняется ветвь else, а учитывая i:=99 всяя ваша процедура сводится к простому
recursia(99+1);