Ребят, помогите пожалуйста по Паскалю.

1. Написать программу, которая вводит последовательность вещественных чисел, состоящую из N элементов, и определяет, является ли эта последовательность возрастающей.

2. Дан целочисленный массив размерности N. Необходимо "сжать" массив, выбросив из него каждый второй элемент. Дополнительный массив использовать нельзя.

var a:array[1..1000]of longint;n,i,kol:longint;beginread(n);for i:=1 to n doread(a[i]);for i:=1 to n-1 doif a[i]<a[i+1] then kol:=kol+1;if kol=n then write('vorast') else writeln('net');end.

var a:array[1..1000]of longint;n,i:longint;beginread(n);for i:=1 to n doread(a[i]);for i:=1 to n doif i mod 2 <>0 then write(a[i],' ');end.