Двумерный массив размерами 3x3 - Pascal

Формулировка задачи:

Нужно заполнить двумерный массив размерами 3х3 именами ваших друзей

Решение задачи: «Двумерный массив размерами 3x3»

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

program zzz;
uses crt;
var m:array[1..3,1..3]of string[15];
     i,j:integer;
 
begin
 clrscr;
 writeln('Введите имена друзей: ');
 for i:=1 to 3 do
 for j:=1 to 3 do
 begin
  write('A[',i,';',j,']: ');
  readln(m[i,j]);
 end;
 
 for i:=1 to 3 do
 begin
  writeln;
  for j:=1 to 3 do
  write(m[i,j],' '); 
 end;
 
 readln;
end.

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

Объявляется двумерный массив m размерами 3x3 типа string[15].
В цикле for i:=1 to 3 происходит запрос на ввод имен друзей в каждой строке массива.
В цикле for j:=1 to 3 происходит запрос на ввод имени друга в каждом столбце массива.
Используя функцию readln, значения сохраняются в соответствующих ячейках массива m[i,j].
В цикле for i:=1 to 3 выводится заголовок строки, в которой будут отображаться значения массива m.
В цикле for j:=1 to 3 значения массива m[i,j] выводятся на экран через пробел.
Программа ожидает ввода с клавиатуры для продолжения работы.