Задачка на последовательность, никак не могу решить Опции

[kent]

Помогите решить задачу, а то никак не получается ...
Задача состоит в следующем: Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность.
Вот всё что я додумался сделать:

var d:array [-1000..1000] of Real;
    N,i,k,t:Integer;
begin
     WriteLn;
     Write('Введите целое число N:');
     ReadLn(N);
     Write('Введите набор из N вещественных чисел:');
     t:=0;
     for i:=1 to N do
     begin
        t:=t+1;
        Read(d[i]);
        if d[i-1]<d[i] then
          k:=t
        else
          k:=0;
      end;
      WriteLn('k=',k);
      ReadLn;
end.

Но код работает не правильно, подскажите плиз как решить...

Сообщение отредактировано: kent - 2.07.2005 15:52