Помогите разобраться с массивом

[Шура]

Доброго времени суток, подскажите пожалуйста, мне нужно создать массив, состоящий из русских букв, но, при этом чтоб массив располагался квадратом 6х5 и вывести его на экран, исключая буквы й,ъ,ё.

[slips]

Mas:array[1..6,1..5] of string=('А','Б','В',... и т.д.);
i,j:integer;
begin
      for i:=1 to 6 do 
               begin
                      for j:=1 to 5 do 
                        write(Mas[i,j]);
                        writeln; 
end;

[Шура]

Имхо, бАльшое спасибо!

[Шура]

Простите, забыл, а как сделать так чтоб при нажатии кнопки из этого массива исключить буквы, которые мы введем в эдит?