Строки в Паскале

[Faizov]

Дана строка, состоящая из слов, разделенных пробелами. Определить кол-во слов палиндромов.
в общем я тут написал процедуры ввода строки, процедуру,которая определяет, слово, палиндром или не палиндром
и процедуру,которая подсчитывает кол-во палиндромов.
Подскажите, что дальше делать, тут еще с пробелом надо че-то сделать, помогите написать процедуру, которая учитывает пробел, точнее не учитывает, в общем..я че-то зациклился

Uses crt;
var                                                                       
sim:string;                                                                 
kol,kpal:byte;                                                               


 Procedure vvod(var sim:string; var kol:byte);                                 
 begin                                                                       
 writeln('Введите слова через пробелы');                                     
 read(sim);                                                                   
 kol:=length(sim);                                                           
 end;                                                                         
                                                                             
Procedure palindrom(slovo:string; var p:boolean);                             
 var                                                                         
 n,i:byte;                                                                   
 begin                                                                       
 p:=true;                                                                     
 n:=length(slovo) div 2;                                                     
  for i:=1 to n do                                                           
   begin                                                                     
    if slovo<>slovo[n-i+1] then                                         
 p:=false;                                                                 
 end;                                                                       
 end;           


Procedure kolpal(p:boolean; var kpal:byte);                                 
begin                                                                       
 if p then kpal:=kpal+1                                                     
 end;             
                                                           
                                                                             

[Данила]

писал в 1ом семестре такую прогу...

[Faizov]

Ты не сможешь написать эту прогу?...

[Данила]

внизу моего сообщения прикреплен файл с ней