На языке паскаль абс дан одномерный массив, который содержит не более 60 символов, которые образуют слова, разделённые одним пробелом. ответить на вопрос, есть ли среди этих слов данное слово.

const     n = 60;
 var c : array [1..n] of char; 
    a,s : string;
     r : boolean; 
    i : integer; 
 begin   
 
// Пропускаю формирование массива

    writeln ('введите искомое слово');  
 readln (a); 
  for i := 1 to n do    begin 
    if c[i] <> ' '  then 
     s := s + c[i]; 
   if (c[i] = ' ') or (i = n) then
       begin        writeln (s); 
        if a=s then     
           r := true;     
     s := '';     
         end;    
 end;  

   if r then 
 writeln ('есть')   
 else  
   writeln ('нет');
 end.