В матрице А(N,N) уплотнить все четные элементы в направлении указанном на рисунке - Turbo Pascal

uses crt;
type matr=array[1..20,1..20]of integer;
{чтоб 2 раза не писать вывод матрицы, оформим процедурой}
procedure OutMatr(var a:matr;n:integer);
var x,y:integer;
begin
for x:=1 to n do
  begin
    for y:=1 to n do
    write(a[x,y]:2,' ');
    writeln;
  end;
end;
var
a:matr;
b:array[1..400] of integer;
n,m,k,x,y,z:integer;
begin
clrscr;
randomize;
write('Размер матрицы n=');
readln(n);
writeln('Исходная матрица:');
for x:=1 to n do
for y:=1 to n do
a[x,y]:=random(20);
OutMatr(a,n);
m:=0;
for x:=1 to n do
for y:=1 to n do
if (a[x,y] mod 2=0)and(a[x,y]<>0) then{создаем массив из четных элементов матрицы}
  begin
   m:=m+1;
   b[m]:=a[x,y];
  end;
writeln('Массив четных чисел:');
for x:=1 to m do
write(b[x],' ');
writeln;
if m<n*n then
for x:=m to n*n do{дополняем его нолями}
   begin
    m:=m+1;
    b[m]:=0;
   end;
{начальные значиения}
x:=1;{встаем в ячейку [1,n]}
y:=n;
k:=1;{коэфициент переключения}
{перебираем все номера}
for z:=1 to m do
   begin
     a[x,y]:=b[z];
     {следующие координаты}
     x:=x+k;{движемся вправо-вниз}
     y:=y+k;
     {корректируем координаты}
     if (y>n)and(x<=n) then{если вышли за правую "стенку" и не в углу}
      begin
       y:=n;{возвращаемся влево}
       k:=-k;{идем вверх-влево}
      end;
     if (x=0)and(y<>0) then{вышли выше верхней "стенки"  и не в углу}
      begin
       x:=1;{возвращаемся вниз}
       k:=-k;{вниз-вправо}
      end;
     if x>n then{если вышли за нижнюю "стенку"}
      begin
       x:=n;{возврашаемся вверх}
       y:=y-2;{уходим на 2 влево}
       k:=-k;{вверх-влево}
      end;
     if y=0 then{вышли за левую "стенку"}
      begin
       y:=1;{возвращаемся вправо}
       x:=x+2;{уходим на 2 вниз}
       k:=-k;{вниз-вправо}
      end;
   end;
{выводим результат}
writeln('Результат:');
OutMatr(a,n);
readln;
end.