Помогите плз с Паскалем…

1) Const n=10; Var a: array [1… n] of integer; i,max: integer; begin Write ('Введите массив: '); For i: =1 to n do Read (a[i]); Readln; max: =a[1]; For i: =1 to n do If a[i]>max Then max: =a[i]; Writeln ('Максимальный элемент — ',max); Readln; end.2) хз… .3) const n=100; var arr: array[1… n] of integer; i, m, qty: byte; begin write ('Количество элементов массива: '); readln (m); write ('Элементы массива через пробел: '); for i: =1 to m do read (arr[i]); readln; qty: =0; i: =2; while i < m do if (arr[i] > arr[i-1]) and (arr[i] > arr[i+1]) then begin qty: =qty+1; i: =i+2 end else i: =i+1; writeln ('Кол-во элементов, которые больше соседей: ', qty); readln; end. Вроде как-то так