строки

[Альбинка]

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

[Stilet]

С потолка

cmax:=0;c:=0;
for i:=1 to length(s)-1 do begin
 if (not (s[i] in ['0'..'9'])) and (not s[i+1] in ['0'..'9']) then
  inc(c)
 else begin
  if c>cmax then cmax:=c;
  c:=0;
 end;
end;

Где
c - Длина рассчитываемой на итерации подстроки
cmax - Длина максимальной
s - строка символов

Идея понятна?

[Альбинка]

(not (s[i] in ['0'..'9'])) and (not s[i+1] in ['0'..'9']) операция неприменима к операндам этого типа...

[Stilet]

Какого типа?

[Альбинка]

ну тип строки integer