Помогите с задачками на паскаль1)Заполните таблицу из 25-ти чисел

Program lab3;const n=10;                   количество частей в массиве
var   A:array [1..n] of real;          объявление массива А   i:byte;                                  переменная для циклов   b:boolean;                           идентификатор ростаbegin     writeln('vvedite tselie chisla matrici A[',n,',',n,']');     for i:=1 to n do begin                  циклвводавмассив         write('A[',i,'] = ');         readln(A[i]);     end;     writeln;     writeln('matraca imeet vid: ');     for i:=1 to n do begin                  циклвыводамассива         write(A[i]:3:3,'  ');        end;     writeln;     b := true;     for i:=1 to n-1 do               цикл определения роста          if (A[i] gt; A[i+1]) then begin  если текущий больше последующего             b := false;                                     означает масив невозростающий             break;          end;     if (b) then writeln('Masiv A - vozrostaushaya posledovatelnost''')     else writeln('Masiv A - ne vozrostaushaya posledovatelnost''');     readln;