Пожалуйста!!! Помогите решить задачу по программированию на Паскале!!!

program Matr;

uses
  Crt;

const
  N = 5;
  S: array[1..N, 1..N] of Integer = (
  (5, 6, 8, 7, 5),
  (2, 4, 8, 1, 4),
  (6, 9, 8, 7, 5),
  (5, 4, 7, 8, 9),
  (2, 1, 6, 8, 7));

var
  D: array[1..N, 1..N] of Integer;
  E: array[1..N*N] of Integer;
  i, j, NumE, X, Y, Direct: Integer;

begin
  ClrScr;
  for i := 1 to N do begin
    for j := 1 to N do
      Write(S[i, j]:4);
    WriteLn;
  end;
  NumE := 0;
  for i := 1 to N do
    for j := 1 to N do
      if not Odd(S[i, j]) then begin
        Inc(NumE);
        E[NumE] := S[i, j];
      end;
  for i := NumE + 1 to N * N do
    E := 0;
  X := 1;
  Y := N;
  Direct := 1;
  for i := 1 to NumE do begin
    D[Y, X] := E;
    case Direct of
      1: if Y > 1 then begin
        Dec(Y);
        Direct := 2;
      end else begin
        Inc(X);
        Direct := 4;
      end;
      2: if Y < N then begin
        Inc(X);
        Inc(Y);
      end else
        if X < N then begin
          Inc(X);
          Direct := 3;
        end else begin
          Dec(Y);
          Direct := 5;
        end;
      3: if X > 1 then begin
        Dec(X);
        Dec(Y);
      end else
        if Y > 1 then begin
          Dec(Y);
          Direct := 2;
        end else begin
          Inc(X);
          Direct := 4;
        end;
      4: if X < N then begin
        Inc(X);
        Inc(Y);
      end else
        if Y < N then begin
          Dec(Y);
          Direct := 5;
        end;
      5: if Y > 1 then begin
        Dec(X);
        Dec(Y);
      end else begin
        Inc(X);
        Direct := 4;
      end;
    end;
  end;
  WriteLn;
  for i := 1 to N do begin
    for j := 1 to N do
      Write(D[i, j]:4);
    WriteLn;
  end;
end.