Даны числа n и m. Создайте массив A[n][m] и заполните его змейкой - Pascal

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

Здравствуйте. Помогите пожалуйста неумехе. Плохо понимаю Pascal

Задания:

Даны числа n и m. Создайте массив A[n][m] и заполните его змейкой (см. пример). P.S: первые 6 с http://informatics.mccme.ru/

Решение задачи: «Даны числа n и m. Создайте массив A[n][m] и заполните его змейкой»

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

uses crt;
  type mas=array[1..100,1.. 100] of integer;
  var a:mas;
      i,j,n,m:integer;
begin
  clrscr;
  write('n=m=');readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          if i mod 2 =1 then
            a[i,j]:=(i-1)*m+j
            else a[i,j]:=i*m-j+1;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  readln;
end.

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

Объявляется переменная типа mas (массив), названная a.
Объявляются переменные i, j, n и m типа integer.
Очищается экран.
Запрашивается у пользователя ввод значений переменных n и m.
Выполняется вложенный цикл по переменным i и j от 1 до n и от 1 до m соответственно. 5.1. Если значение i делится на 2 с остатком равным 1:
- Присваивается значение массиву a с индексами [i,j] равное выражению (i-1)*m+j. 5.2. В противном случае:
- Присваивается значение массиву a с индексами [i,j] равное выражению i*m-j+1. 5.3. Выводится значение массива a с индексами [i,j], выровненное по ширине в 4 символа.
Печатается символ перехода на новую строку.
Ожидается ввод пользователя перед завершением программы. Этот код создает и заполняет двумерный массив A размером n на m элементов значениями, заполняя его по порядку для нечетных строк и в обратном порядке для четных строк.