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

uses crt;

var
  a: array [1 .. 50] of integer;
  n, i, k: integer;

begin
  clrscr;
  write('Razmer massiva n=');
  readln(n);
  writeln('Massiv A:');
  for i := 1 to n do
    read(a[i]);
  readln;
  k := 0;
  for i := 2 to n do
    if a[i] > a[i - 1] then
      k := k + 1
    else
    begin
      writeln('Massiv A ne uporjadochen po vozrastanju!');
      writeln('Pervyj element nomer ', i);
      readln;
      exit;
    end;
  if k = n - 1 then
    writeln('Massiv A uporjadochen po vozrastanju!');
  readln

end.