массивы Pascal

[-ushёl-]

подскажите плз каким способом можно подсчитать количество букв в симметричной матрице?букв всего 5(F,G,K,L,N).Само задание:Задать симметричную мат.-цу 10*10 из букв F,G,K,L,N и подсчитать кол.-во каждой из букв в каждом столбце и каждой строке.
наведите на правильный путь.
var
M:array[1..10,1..10]of char;
i,j:integer;
sel:longinteger;{для суммы элементов массива}
begin
.
.
.
.;{заполненный 2мерный массив буквами}
for i:=1 to 10 do
for j:=1 to 10 do
begin
sel:=0;
if M[j,j] = chr(78) then
begin
sel:=sel+M[i,chr(78)];{КАК ПРАВИЛЬНО УКАЗАТЬ НУЖНУЮ БУКВУ ДЛЯ ПОДСЧЁТА?}
write('сумма букв N по вертикали','=',sel);
end;

И так же нужно делать для горизонтали? и для остальных букв??

[Simply-Art]

const S='FGKLN';
var
M:array[1..10,1..10]of char;
i,j,k:integer;
sel:integer;{для суммы элементов массива}
begin
for i:=1 to 3 do
 for j:=1 to 3 do
  readln(m[i,j]);
for k:=1 to 5 do
 for i:=1 to 3 do
  begin
   sel:=0;
   for j:=1 to 3 do {анализ строк}
    if m[i,j]=S[k] then sel:=sel+1;
   writeln('В строке [',i,'] символ "',S[k],'" встречается ',sel);
   sel:=0;
   for j:=1 to 3 do {анализ строк}
    if m[j,i]=S[k] then sel:=sel+1;
   writeln('В столбике [',i,'] символ "',S[k],'" встречается ',sel);
   readln;
  end;
end.

[-ushёl-]

спасибо. и так т.е. повторить циклы для всех остальных букв?

[Simply-Art]

Здесь впринципе итак для всех букв сделано, благодаря константе, понажимай ентер и все увидишь