Массивы. Двумерные массивы. Спиралевидный и змеевидный обходы

Дана матрица порядка n*m.
Вывести значения элементов, выполнив обход матрицы по “змейке”

i:=1;
While i
begin
{Просмотр элементов строки слева направо }
for j := 1 to m do Write (a[i,j] : 4);
{Просмотр элементов строки справа налево}
inc(i);
for j := m downto 1 do Write (a[i,j]:4);
inc(i);
end;

Дана квадратная матрица порядка n, элементами которой являются целые числа. Вывести значения элементов, выполнив обход матрицы по “спирали”