Двумерный массив

[Shao1993]

Двумерный массив NxN заполнить случайными символами английского алфавита (заглавные). Вывести на экран сколько раз встречается каждый символ.

первую часть программы я написала. Вторую не могу никак.
program pro2;
Var
A:Array[1..50,1..50] of Char;
i,j,N:Byte;
buf:Char;
ch:byte;//счётчик букв//
Begin
Writeln('введите N');
read(n);
Randomize;
Writeln('исходный массив:');
for i:=1 to N do
begin
for j:=1 to N do
begin
A[i,j]:=Chr(65+Random(26));
write(A[i,j]+' ');
end;
writeln;
end;
Readln;
End.

[netpolice]

А че думать..

for i:= 65 to 65+26 do
begin
p:=0;

     for y:= 1 to N do
           for x:= 1 to N do
                  if A[x,y] = Chr(i) then inc(p);

if p<>0 then Writeln(Chr(i)+' встречается '+p+' раз';


end;

[Shao1993]

работает, спасибо

[netpolice]

не работает

Я не экстрасенс.... Что не работает? У Вас кнопка power на системнике не работает? Какая ошибка?

Может p,x,y: integer; в начале объявить надо, конкретно определитесь


Всегда пожалуйста