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

program TwoDimensionalArray;

var

rows, cols, i, j: integer;

arr: array [1. . 9999, 1. . 9999] of integer;

begin

writeln('Введите кол-во строк:'); readln(rows);

writeln('Введите кол-во столбцов:'); readln(cols);

writeln('Вводите элементы матрицы: ');

for i := 1 to rows do

for j := 1 to cols do

readln(arr[i, j]);

for i := 1 to rows do begin

for j := 1 to cols do

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

writeln

end;

end.