Задача на языке паскаль абс
Дан одномерный массив, который содержит не более 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.