Паскаль. Задание на строки.

[Tink]

Суть такова.
Нужно найти в вводимой строке( может содержать пробелы, не более 60 символов) самую длинную цепочку одинаковых символов. Вывести ее на экран и количество этих символов.

Что-то у меня не заладилось( Со строками первый раз сталкиваюсь.

program my6;
var s,a,b,p,sim,p1:string;
f,d,i,k,n:integer;
begin
writeln('vvedite s');
readln(s);
k:=length(s);
if k>60 then writeln('fig') else
  begin
  n:=1;
  f:=1;
  p:='a';
  p1:='a';
  for i:=1 to k do
   begin
   a:=s[i];
   b:=s[i+1];
   if a=b then
    begin
    p:=p+b;
    n:=n+1;
    end;
   if a<>b then
    begin
    d:=length(p);
    if d>f then
     begin
     f:=d;
     p:=p1;
     sim:=a;
     end;
    end;
   end;
end;
n:=f;
writeln('simvol=',sim,' kolvo=',n);
readln;
end.

не всегда правильно считает, но я не могу понять почему(

[Stilet]

Думаю тебе стоит рассмотреть классический вариант разбора строки:

var s:string; a,e:string;
  i,count:integer;
begin   {$o-}
 s:='lll hhhhh kk';e:='';
 count:=1;
 i:=1; while (i<length(s)) do begin
   if s[i]=s[i+1] then begin a:=a+s[i]; end
   else begin
    if length(a)>length(e) then e:=a;
    a:='';
   end;
   inc(i);
 end;
 write(e);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Твоя задача - подправить этот код до идеала, ибо в нем есть одна неучтенность относительно твоего задания.