// DCV na PGM
// Jan Pacner
// zadani:
// kolikrat se ve vstupnim textu za sebou objevi dva stejne ASCII znaky
// a o ktery znak slo?
// made 31.12.2007 and last modified 10.2.2008

program kolikrat_za_sebou_2_stejne_znaky;
  {$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

var
//char,string,real,boolean,integer,byte
  zakonceni:char;
  znak1:char;
  znak2:char;
  ukoncit:boolean;
  dvojic:byte;
  dvojicbig:byte;
  znak:byte;
begin
ukoncit:=false;
dvojic:=0;
dvojicbig:=0;

writeln ('zadejte ukoncovaci ASCII znak:');
readln (zakonceni);
writeln ('zadavejte po jednom ASCII znaky a oddelujte enterem');

repeat
  readln (znak1);
	if ord(znak1)=ord(zakonceni) then ukoncit:=true
  	else
		begin
			if ord(znak1)=ord(znak2) then dvojic:=dvojic+1
        else dvojic:=0;
          if dvojic>dvojicbig then
            begin
              dvojicbig:=dvojic;
              znak:=ord(znak1);
            end;

	   	readln (znak2);
	   	if ord(znak2)=ord(zakonceni) then ukoncit:=true
				else 
        begin
    			if ord(znak1)=ord(znak2) then dvojic:=dvojic+1
            else dvojic:=0;
          if dvojic>dvojicbig then
            begin
              dvojicbig:=dvojic;
              znak:=ord(znak1);
            end;
        end;
		end;
until ukoncit=true;

writeln (' -> ',dvojicbig,'krat jste zadal(a) za sebou znak: "',chr(znak),'"');
readln;
end.
„Čas si vymysleli lidé, aby věděli, od kdy do kdy a co za to.“ Jan Werich