Очень трудная задачка по информатике которую необходимо записать на Pascal !!

Var
  x1, y1, x2, y2, i: integer;

begin
  Write('Введите через пробел начальные номера улицы и авеню: ');
  Readln(x1, y1);
  Write('Введите через пробел окончательные номера улицы и авеню: ');
  Readln(x2, y2);
  Writeln('Отысканный путь:;');
  if x2 gt; x1 then for i := x1 to x2 - 1 do Write('E')
  else for i := x1 downto x2 + 1 do Write('W');
  if y2 gt; y1 then for i := y1 to y2 - 1 do Write('N')
  else for i := y1 downto y2 + 1 do Write('S');
  Writeln
end.

Тестовое решение:

Введите через пробел начальные номера улицы и авеню: 1 3
Введите через пробел окончательные номера улицы и авеню: 4 1
Отысканный путь:;
EEESS

Введите через пробел начальные номера улицы и авеню: 58 49
Введите через пробел конечные номера улицы и авеню: 36 23
Отысканный путь:;
WWWWWWWWWWWWWWWWWWWWWWSSSSSSSSSSSSSSSSSSSSSSSSSS