Для заданного числа М заполнить матрицу по правилу - PascalABC.NET

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

помогите пожалуйста

Для заданного числа М заполнить двумерный массив А разме¬ром МхМ натуральными числами от 1 до М2 по строчкам слева направо, содержимое массива вывести на экран.

Решение задачи: «Для заданного числа М заполнить матрицу по правилу»

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

uses crt;
var a:array[1..20,1..20] of integer;
    m,i,j:integer;
begin
write('m=');
readln(m);
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=(i-1)*m+j;
    write(a[i,j]:4);
   end;
  writeln;
 end;
end.

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

Объявлены переменные: a (матрица), m, i, j (счетчики)
Задается значение переменной m с помощью функции readln()
Два вложенных цикла for, первый для перебора строк матрицы, второй - столбцов
В каждой ячейке матрицы (i,j) вычисляется значение по правилу (i-1)*m+j и записывается в переменную a[i,j]
Значение каждой ячейки выводится на экран с помощью функции write()
После каждой строки матрицы выводится символ новой строки с помощью функции writeln()
После завершения работы программы выводится символ новой строки