Заполнение матрицы случайными буквами - Pascal

Добрый день.Скажите ,пожалуйста, как заполнить 2у мерный массив (матрица 4х4) рандомно буквами A,B,C,D?Спасибо.

Листинг программы

for i:=1 to 4 do
 begin
  for j:=1 to 4 do
    begin
     s[i,j]:=chr(random(4)+65);
     write(s[i,j]);
    end;
   writeln;
  end;

Объяснение кода листинга программы

В данном коде происходит заполнение матрицы случайными буквами.

Переменная i принимает значения от 1 до 4.
Вложенный цикл for j:=1 to 4 do проходит 4 раза для каждой позиции i.
В каждой итерации цикла for j:=1 to 4 do переменная s[i,j] принимает значение случайной буквы, сгенерированной функцией random(4)+65;, которая генерирует случайное число от 65 до 90 (буквы английского алфавита).
Значение переменной s[i,j] записывается в консоль с помощью функции write(s[i,j]);.
После окончания каждой итерации внутреннего цикла for j:=1 to 4 do происходит переход к следующей итерации внешнего цикла for i:=1 to 4 do с помощью оператора end;.
После окончания внешнего цикла for i:=1 to 4 do происходит вывод строки с помощью функции writeln;.