Помогите решить задачи!

1. Дан массив размера 10, числовые значения которого вводятся с клавиатуры. Вывести максимальный элемент данного массива и его номер.

2. Дан массив размера 10, числовые значения которого вводятся с клавиатуры. Вывести все двузначные элементы массива и их номера.

3. Дан массив размера 10, числовые значения которого вводятся с клавиатуры. Вывести предпоследний элемент массива кратный 3 и его номер.

1)

var a=array[1 ... 10]of integer;

i, max, poz: integer;

begin

writeln ('vverite 10 elementov')

for i:=1 to 10 do

read (a[i]) ;

max:=a[1];

poz:=1;

for i:=2 to 10 do

if (a[i]>max) then begin max:=a[i]; poz:=i; end;

writeln ('max = ', max,' ego nomer = ', poz) ;

end.

2)

var a=array[1 ... 10]of integer;

i:integer;

begin

writeln ('vverite 10 elementov')

for i:=1 to 10 do

read (a[i]) ;

for i:=1 to 10 do

if (a[i]>=10) and (a[i]<=99) then writeln (a[i],' ego nomer', i) ;

end.

3)

var a=array[1 ... 10]of integer;

i, k, poz:integer;

begin

writeln ('vverite 10 elementov')

for i:=1 to 10 do

read (a[i]) ;

k:=0;

for i:=10 downto 1 do

begin

if (a[i] mod 3 = 0) then begin k:=k+1; poz:=i; end;

if (k=2) then writeln (a[i],' ego nomer = ', i) ;

end;

if (k=0) then writeln ('kratnyh 3 net') ;

if (k=1) then writeln ('kratnyy 3 tol'ko 1: a[', poz,']=', a[poz]) ;

end.