unit mylau;
Interface

    procedure skaits (var str:string);

implementation

    procedure skaits (var str:string);
    var skaits, tmp_skaits, i:integer;
	simbols:char;
    begin
	skaits := 0;
	tmp_skaits := 1;
	simbols := str[1];
	for i:=2 to length(str) do
	begin
	    if(str[i - 1] = str[i]) then
	    begin
		tmp_skaits := tmp_skaits + 1;
	    end
	    else
	    begin
		if(tmp_skaits >= skaits) then
		begin
		    simbols := str[i - 1];
		    skaits := tmp_skaits;
{		    writeln('      ',str[i - 1], '  ',skaits);}
		    tmp_skaits := 1;
		end;
		tmp_skaits := 1;
	    end;
	    {writeln(i, '  ', str[i]);}
	end;

	if(tmp_skaits >= skaits) then
	begin
	   { writeln('Sibols ir: ',str[i],' bet skaits ', tmp_skaits);}
	end
	else
	begin
	   { writeln('Sibols ir: ',simbols,' bet skaits ', skaits);}
	end;
    end;


end.