Ok here it is :-
http://host-a.net/tcm9669/SNAKE.PAS
NOTE:- dont try to make it an EXE file and run it as an EXE because it will not run correctly! just open it with pascal and run it from there. If you dare leave feedback!
pls not that this was just a project I had to make with pascal! I couldnt use another language :( but well PASCAL is very restricted so im happy with the outcome and well after all its the best project in my class so.. well im pretty happy with it :)