Составить программу и алгоритм для заполнений массива 3 х3 символом, введенным пользователем, и вывода его на экран

Const

n = 3;

var

a : array [1 ... n, 1 ... n] of char;

i, j : integer;

b : char;

begin

//Считывание массива

readln (b);

for i : = 1 to n do

for j : = 1 to n do

a[i, j] : = b;

//Вывод массива

for i : = 1 to n do

begin

for j : = 1 to n do

write (a[i, j],' ');

writeln ();

end;

end.