Строка символов. Паскаль.

[HaTyCuk]

Ввести строку символов ( предусмотреть ввод пустой строки или строки из одних пробелов). Разделителями слов в строке могут быть «_»,«:»,«;»,«,»,«( )»(предусмотреть использование множества для разделителей). Определить номер слова-палиндрома, имеющего максимальную длину.

Помогите пожалуйста решить задачку, мне нужно зачет закрыть, и дали это, а я уже всю информатику за 2 года забыла)) Вообще без понятия что делать....

[HaTyCuk]

Слово палиндром это, например, ШАЛАШ (читается с начала и конца одинаково).

[SERG1980]

uses crt;
type TSeparator = set of Char;
{*************************************************}
function ReversString(str:string):string;
var i:integer;
    srs:string;
begin
 ReversString:='';
 srs:='';
 for i:=Length(str) downto 1 do
 srs:=srs+str[i];
 ReversString:=srs;
end;
{*************************************************}
const Separator: TSeparator = ['_',':',';',',','(',')'];
var i,d:integer;
    stroka,s:string;
BEGIN
 clrscr;
 writeln('Vvedite stroky');
 readln(stroka);
 s:='';
 d:=0;
 if stroka='' then
 begin
  writeln('Ne vveli stroky!');
  readln;
  exit;
 end;
 for i:=1 to Length(stroka) do
 if (stroka[i] in Separator)or(i=length(stroka))then
 begin
  if s<>''then
  begin
   if i=Length(stroka) then s:=s+stroka[length(stroka)];
   if s=ReversString(s) then
   begin
    if d < Length(s) then d:=Length(s);
   end;
  end;
  s:='';
 end else s:=s+stroka[i];
 writeln('Dlina: ',d);
 readln;
END.

Номер самого длинног слова введите сами после этой строки: if d < Length(s) then d:=Length(s);(заведите счётчик и увеличивайте на +1 как только выполнится условие if s=ReversString(s))

[HaTyCuk]

Ой, спасибо вам большое!!! А то я сегодня больше никого и не нашла, кто бы помочь мог) На зачет, думаю, сойдет!