Дана последовательность вещественных чисел a1,a2,…,a20. Определить, является ли последовательность упорядоченной по возрастанию. В случае отрицательного ответа определить порядковый номер первого числа,нарушающего такую упорядоченность — Pascal(Паскаль)

uses crt;
const n=20;
var i,k:byte;
    a,b:real;
begin
clrscr;
writeln('Введите последовательность из ',n,' вещественных чисел:');
k:=0;
readln(a);
for i:=2 to n do
 begin
  readln(b);
  if b<=a then
   begin
    k:=i;
    writeln('Последовательность не упорядочена по возрастанию.');
    write('порядковый номер нарушителя=',k);
    break;
   end;
 end;
if k=0 then write('Последовательность упорядочена по возрастанию.');
readln
end.