Ввод элементов матрицы с клавиатуры - Pascal ABC

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

Ввод элементов матрицы с клавиатуры. Нужна помощь. Чтобы я мог ввести элементы матрицы А и В с клавиатуры

program matr5lab;
const n=3;
      A:array[1..n,1..n]of integer=((2,5,3),(5,4,5),(9,8,7));
      B:array[1..n,1..n]of integer=((6,5,5),(9,3,2),(3,1,2));
var c:array[1..n,1..n]of integer;
    i,j,k:integer;
begin
writeln('Матрица A:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
writeln('Матрица B:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:4);
  writeln
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  c[i,j]:=0;
  for k:=1 to n do
  c[i,j]:=c[i,j]+a[i,k]*b[k,j];
 end;
writeln('Матрица С=A*B:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(c[i,j]:4);
  writeln;
 end;
end.

Решение задачи: «Ввод элементов матрицы с клавиатуры»

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

for i:=1 to n do
 for j:=1 to n do
  begin
   write("Введите A["+i+","+j+"] - ");
   readln(a[i,j]);
  end;

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

В цикле for i:=1 to n do происходит итерация от 1 до n.
Вложенный цикл for j:=1 to n do начинается после каждой итерации внешнего цикла.
Выводится сообщение Введите A[+i+,+j+] - для каждой пары i и j.
С помощью функции readln() считывается ввод пользователя.
Значение a[i,j] присваивается введенному пользователем значению.