» Разработать алгоритм сканера.

[more] Всем Доброго Времени суток.
Помогите закончить программу..я вроде начал а дальше что то запутался..
Задание-В соответствие с заданным вариантом исходных данных разработать алгоритм сканера.
Ключевые слова-PROGRAM, INPUT, OUTPUT, VAR, INTEGER, BEGIN, IF, THEN, ELSE.
Служебные знаки-«:», «,», «;», «:=», «<», «>», «(», «)».
Другие лексемы-идентификаторы с количеством сим-волов не более 5.
Заранее спасибо..
И Сама моя прога:

program prim;
uses crt;
var a:array[1..14] of string;
b:array[1..4] of string;
c:array[1..3] of char;
i,n:integer;
begin
clrscr;
a[1]:='program';
a[2]:='input';
a[3]:='output';
a[4]:='var';
a[5]:='integer';
a[6]:='begin';
a[7]:='if';
a[8]:='then';
a[9]:='else';
b[1]:=':';
b[2]:=',';
b[3]:=';';
b[4]:=':=';
b[5]:='<';
b[6]:='>';
b[7]:='(';
b[8]:=')';
c[1]:='1';
c[2]:='2';
c[3]:='3';
c[4]:='4';
writeln('vvedite stroku',s;) readln(s);
for i:=1 to length(s) do [/more]

А почему в программе только цифры 1234? Что вы подразумеваете под сканером? Синтаксический анализатор? Лексический? Или просто разбивка на токены? К примеру считали слово "then" и что должен дальше делать ваш "сканер"? Даже не представляю.
посмотри вот тут как нужно делать http://www.delphipages.com/download.php?id=3805