Написать синтаксический анализатор - Pascal ABC

Формулировка задачи:

нам были даны три таблицы(я их сделал 3мя массивами): 1)операторы(9шт.), 2)знаки препинания(9шт.) и просто цифры (4шт). Требуется, чтобы при вводе строки текста программа распознала, например, оператор из массива и вывела номер массива, в котором лежит этот оператор и, собственно, сам порядковый номер оператора. Алгоритм вроде получилось написать основную часть, но дело в том, что я ввожу, например, одно слово "program", то программа работает идеально, а если написать левые слова, while program 1 2 3 do . ;, то программа завершается, а должна выводиться строка с данными об этих введенных данных, кроме левы слов. Алгоритм:

uses crt;
var a:array[1..9] of string;
b:array[1..9] of string;
c:array[1..4] of char;
d:array[1..22] of string;
s:string;
i:integer;
begin
clrscr;
a[1]:='program';
a[2]:='input';
a[3]:='output';
a[4]:='var';
a[5]:='end';
a[6]:='begin';
a[7]:='while';
a[8]:='do';
a[9]:='char';
  b[1]:=':';
  b[2]:=',';
  b[3]:=';';
  b[4]:=':=';
  b[5]:='.';
  b[6]:='=';
  b[7]:='<>';
  b[8]:=')';
  b[9]:='"';
    c[1]:='1';
    c[2]:='2';
    c[3]:='3';
    c[4]:='4';
    
writeln('Г‚ГўГҐГ¤ГЁГІГҐ Г±ГІГ°Г®ГЄГі');readln(s);
  for i:=1 to 9 do
if s=a[i] then writeln ('<1',',',i,'>');
 
  for i:=1 to 9 do
if s=b[i] then writeln ('<2',',',i,'>');
 
  for i:=1 to 4 do
if s=c[i] then writeln ('<3',',',i,'>');

Решение задачи: «Написать синтаксический анализатор»

Листинг программы

s:=s+' ';
while pos(' ',s)>0 do
 begin
  slovo:=copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
 //ищешь это слово в массивах
 //выводишь что нужно
 end;

Объяснение кода листинга программы

s - это переменная, которая содержит строку, в которой нужно найти слова.
slovo - это временная переменная, которая используется для хранения найденного слова.
pos - это функция, которая ищет позицию первого вхождения пробела в строке s.
Если пробел найден (т.е. значение функции pos больше 0), то выполняется следующий блок кода.
В этом блоке:
- slovo устанавливается равным копии подстроки s, начиная с первого символа и заканчивая символом, предшествующим пробелу.
- s изменяется, удаляются символы от первого до последнего пробела.
Затем происходит поиск найденного слова в массивах и выводится нужная информация.