Посчитать время, за которое лыжник пройдет путь

[Николай Сергеев]

Я решал олимпиадную задачу на паскале. Вот условие:
Лыжник катается по снежному полю. Его передвижения можно описать строкой из символов 'S', 'N', 'W', 'E' (что соответствует перемещениям на 1 метр в направлении юга, севера, запада или востока соответственно). Известно, что если он прокладывает лыжню, то есть катится по ранее не посещенному отрезку пути, то время такого передвижения равно 5 с, а если он катится по лыжне, то 1 с. Найдите время лыжника в пути.
Входные данные
В первой строке входного файла содержится непустая строка из символов 'S', 'N', 'W', 'E'. Длина строки не превосходит 100 символов.
Выходные данные
файл должен содержать одно число - время в секундах лыжника в пути.
Вот мой код:

 
var 
  x,y:array[0..100] of longint;
  n,i,j,k:longint;
  s:string;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
 readln(s);
 n:=length(s);
 for i:=1 to n do
   begin
   y[i]:=y[i-1];x[i]:=x[i-1];
   if s[i]='N' then inc(y[i])
     else if s[i]='S' then dec(y[i])
       else if s[i]='W' then dec(x[i])
         else inc(x[i]);
   for j:=0 to i-1 do
     if (x[i]=x[j]) and (y[i]=y[j]) then break;
   if (x[i]=x[j]) and (y[i]=y[j]) then k:=k+1
     else k:=k+5;
   end;
 writeln(k);
close(input);
close(output);
end.

На тестировании проходит не все тесты. Помогите мне найти ошибку, пожалуйста, а то нужно уже сдавать.

[Николай Сергеев]

Тесты из условия такие:
ввод WWEN - вывод 16
ввод WWEE - вывод 12
Эта программа тесты из условия проходит. Помогите, пожалуйста!