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

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

begin
Write('Введите через пробел исходные номера улицы и авеню: ');
Readln(x1, y1);
Write('Введите через пробел конечные номера улицы и авеню: ');
Readln(x2, y2);
Writeln('Найденный путь:;');
if x2 > x1 then for i := x1 to x2 - 1 do Write('E')
else for i := x1 downto x2 + 1 do Write('W');
if y2 > 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

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