Нужно написать программу на языке паскаль

[hottab1]

2.«Робот». Робот перемещается по не ограниченному клетчатому полю, ориентированному по сторонам света. Программа робота состоит из символов n – шаг на север, e – шаг на восток, s – шаг на юг, w – шаг на запад.
Для перехода робота, заданного программой (не больше 128 символов), определить количество посещенных им клеток.
Например: Программа – nnwsse, ответ – 6

Нужно написать программу на языке паскаль, имеется пример программы на бейсике:
cls
defint n,k,x,y,i,j,f
defstr m
dim x(128),y(128)
input "Программа ";m
n=len(m): k=1:x(1)=0:y(1)=0: xt=0:yt=0
flag=1
for i=1 to n
select case mid$(m,i,1)
case "n","N"
x(k+1)=xt:y(k+1)=yt+1
case "w","W"
x(k+1)=xt–1:y(k+1)=yt
case "s","S"
x(k+1)=xt:y(k+1)=yt–1
case "e","E"
x(k+1)=xt+1:y(k+1)=yt
case else
flag=0
end select
xt=x(k+1):yt=y(k+1):flag1=1
for j=1 to k
if x(k+1)=x(j) and y(k+1)=y(j) then flag1=0
next
if flag1=1 then k=k+1
next
if flag=1 then
print "Посещено клеток ";k else print "Ошибка программы"
end if
end

Помогите пожалуйста, всю голову сломал

[veniside]

http://ideone.com/ixm0t

[hottab1]

Большое спасибо!