Значения элементов двумерного массива А размером 5x5 задаются с поддержкою вложенного

Для наглядности в фрагмент вставлены операторы вывода массива построчно. 

program arr;

var  a: array [1..5,1..5] of integer; 

i, j, n: integer;  

begin for i:=1 to 5 do  for j:=1 to 5 do  

begin A[i,j]:= i + j; 

write(a[i,j], ); 

if j=5 then writeln(); //разбивка на строчки 

if a[i,j]gt;5 then n:=n+1; // кусок, в котором считается

//число частей 

end; 

writeln(Количество элементов,значение которых больше 5 ,n)

end.