(Паскаль) 3. Заполнить с клавиатуры массив из 10 элементов

Program chik; var a: array[1… 100]of integer; i,r: integer; beginr: =0; for i: =1 to 10 dobeginread (a[i]); end; for i: =1 to 9 dobeginif (a[i]>a[i+1]) then r: =1; end; if (r=1) then writeln ('не является возрастающей'); if (r=0) then writeln (' Яв… возрас… '); end.