В заданной строке найти самую длинную последовательность одинаковых знаков — Pascal(Паскаль)

var
str: String;
i, l, max: Integer;
sim: Char;
 
Begin
Writeln('Input a string.');
Readln(str);
 
sim := str[1];
l := 1;
max := 1 {or 0};
 
For i := 2 to length(str) do
 if str[i] = sim then
  l := l + 1
 else
  begin
  sim := str[i];
  if max < l then
   max := l;
  l := 1;
  end;
 
if max < l then
 max := l;
Writeln('Max length is ', max, '.');
End.