Вывод массива

Program LM;
const N=10;
var a:array [1..n, 1..n] of integer;
i,j:integer;
k,s:integer;
 
 
Begin
randomize;
s:=0;
k:=0;
for i:=1 to n do
               for j:=1 to n do
                               Begin
                               a[i,j]:=random(10);
                               writeln (A[i,j]);
                               End;
For i:=1 to n do
         for j:=1 to n do 
                    Begin
                    if a[i,j]>0 then k:=k+1;
                    if a[i,j]>0 then s:=s+a[i,j];
                    writeln ('Количество положительных элементов = ',k);
                    writeln ('Сумма положительных элементов = ',s);
                    End;
End.

Uses CRT;
const N=10;
var a:array [1..n, 1..n] of integer;
i,j:integer;
k,s:integer;
 
Begin
randomize;
s:=0;
k:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   Begin
    a[i,j]:=random(40)-6;
    write(A[i,j]:3);
    if a[i,j]>0 then k:=k+1;
    if a[i,j]>0 then s:=s+a[i,j];
   End;
  writeln
 end;
writeln ('Êîëè÷åñòâî ïîëîæèòåëüíûõ ýëåìåíòîâ = ',k);
writeln ('Ñóììà ïîëîæèòåëüíûõ ýëåìåíòîâ = ',s);
End.