Последовательность, Рекурсия Опции

[sheka]

Дана последовательность целых чисел. Путем удаления некоторых элементов (не переставляя элементы) получить неубывающую последовательность максимальной длины.
Думаю сделать так: найти самую длинную цепочку, запомнить с какого элемента она начинается и уже потом вывести.2й и 3й пункт сложности не представляют, а с первым проблемки...можно конечно кучей циклов фор...но мы не знаем количество элементов массива. Поэтому надо рекурсией. Вот мое чудо, которое в мозгах работает на отлично, а Паскаль не понимает))):

const
  n=8;
                          {1 2 3 4 5 6 7 8 9 0 1}
  m:array[1..n]of integer=(2,0,7,5,3,6,6,5);

var
  p:integer;
  nac:integer;
  max:integer;

procedure find(p:integer;curr:integer);
var
  i:integer;
  qq:byte;
begin
  for i:=p+1 to n do
    begin
      if m[p]<=m[i] then
        begin
          inc(curr);
          if max<curr then
            begin
              max:=curr;
              nac:=p;
            end;
          find(i,curr);
        end;

  for qq:=1 to n do write(qq,' '); writeln;
  for qq:=1 to n do write(m[qq],' '); writeln;
  writeln('p=',p);
  writeln('i=',i);
  writeln('m[',p,']=',m[p]);
  writeln('m[',i,']=',m[i]);
  writeln('curr=',curr);
  writeln('nac=',nac);
  writeln('max=',max);

  readln;

    end;
end;

begin
  nac:=1;
  find(1,1);
  writeln('max=',max);
  readln;
end.

ЗЫ А Watches работает только с глобальными переменными?