Вывести двумерный массив в виде отдельной таблицы 2 строки на 5 столбцов - Pascal

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

Всем привет. Подскажите пожалуйста, как вывести этот двумерный массив в виде отдельной таблицы 2 строки на 5 столбцов? Заранее благодарен)

                    Листинг программы
                
 
                        
                          
                    
program Dvumernmassiv;
 
{$APPTYPE CONSOLE}
 
const n=2; m=5;
var i,k, j: integer;
mas: array[1..n, 1..m] of integer;
begin
{ввод массива}
for i:=1 to n do
for j:=1 to m do
begin
write(' Element ', i,' stroki, ',j,' stolbsca = ');
readln(mas[i, j]);
end;
writeln(' Kolichestvo stolbcov , ne soderjashaia 0: ');
k:=0;
for i:=1 to m do
begin
 
if (mas[1,i]<>0)and (mas[2,i]<>0) then
k:=k+1;
end;
 write (k);
readln;
end.

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

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

for i:=1 to n do
  begin
    for j:=1 to m do
    write(mas[i,j]:6);
    writeln;
  end;

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

Устанавливается цикл for для переменной i от 1 до n.
Внутри цикла for устанавливается цикл for для переменной j от 1 до m.
Выводится значение элемента массива mas с индексами i и j. Форматированный вывод осуществляется с выравниванием по ширине 6.
После вывода всех элементов строки массива осуществляется переход на новую строку с помощью функции writeln.