Сделать рекурсию

[Ninto]

Поменять код под рекурсию

 const
  n=3;
type
  ar= array[1..n] of integer;
procedure Per(a: ar; p: integer);
var
  i,b: integer;
begin
  if p=n then begin
    for i:=1 to n do write(a[i]);
    writeln
  end
  else begin
    b:= a[p];
    for i:=p to n do begin
      a[p]:= a[i];
      a[i]:= b;
      Per(a,p+1);
      a[i]:= a[p]
    end;
  end;
end;
var
  i: integer;
  a: ar;
begin
  for i:=1 to n do a[i]:= i;
  Per(a,1)
end.

[digitalis]

Из Правил:

Настоятельно рекомендуем:

- обрамлять код специальным тегом (кнопка с решёткой # на форме сообщения).

и форматировать текст, используя отступы.
Иначе никто не захочет рассматривать нечитаемую портянку. Когда задаёшь вопрос, издеваясь над попытавшимися его прочесть - шансы на ответ минимальны.

[BDA]

Добавил форматирование. Что поменять, не понял. В процедуре Per есть вызов Per - рекурсия присутствует.

[digitalis]

Тогда, значит, выбросить её надо