Определить, возрастающая ли последовательность чисел

Program posled;
        uses crt;
        var i,n,x1,x2,f:integer;
Begin
      clrscr;
      writeln('Введите количество членов ряда');readln(n);
      writeln('Введите первое число ряда');readln(x1);
      for i:=2 to n do
         begin
               writeln('Введите продолжение ряда');readln(x2);
                if (x2>x1) and (n>n-1) then f:=1
                           else f:=0;
         end;
         if f=1 then writeln ('Последовательность возрастающая')
                else writeln ('Последовательность не является возрастающей');
End.

Program posled;
        uses crt;
        var i,n,x1,x2,f:integer;
Begin
      clrscr;
      writeln('Введите количество членов ряда');readln(n);
      writeln('Введите первое число ряда');readln(x1);
f:=1;
      for i:=2 to n do
         begin
               writeln('Введите продолжение ряда');readln(x2);
                if (x2<x1) then begin f:=0;break;end;
x1:=x2;
         end;
         if f=1 then writeln ('Последовательность возрастающая')
                else writeln ('Последовательность не является возрастающей');
End.