Матрица. Решить используя средства управления вводом/выводом. Опции

[RioDezz]

Здравствуйте!

Паскаль изучаю недавно, дали дз, но не понятно как сделать его. Учителя говорят думай, но я так ничего не смог придумать. Помогите, пожалуйста! Заранее спасибо.

Задача:
Решить поставленную задачу, используя средства управления вводом/выводом. Целочисленный массив размера n*m (n,m<=10) сформировать следующим образом: все элементы первого столбца равны 10, второго - 20, третьего - 30 и т. д. Вывести массив на экран так, чтобы каждая четная строка была смещена относительно нечетной на два элемента, поочередно то вправо, то влево:

            *  *  *  *  * 
      *  *  *  *  *
*  *  *  *  *
      *  *  *  *  *
            *  *  *  *  *

и т. д.

Вот все, что написал:

var
  n,m,i,j:integer;
  a:array[1..10,1..10] of integer;
begin
write('Enter matrics n*m: ');
readln(n,m);
if (n<=10) and (m<=10) then
begin
 writeln;
   for i:=1 to n do
     begin
       for j:=1 to m do
         begin
           a[i,j]:=j*10;
           write(a[i,j]:4);
         end;
         writeln;
     end;
end
else write('Nevernie znacheniya, n,m>10!');
readln;
end.