В строке имеется точка с запятой. Подсчитать количество символов до точки с запятой и после нее — Pascal(Паскаль)

var
s:string;
i:integer;
usl: boolean;

begin
  s:='Test, stroka;';
  writeln(s);
  usl:=false;
  for i:=1 to length(s) do
      if s[i]=';' then usl:= true;
  if usl=true then 
     begin
          writeln('кол-во символов до ";" = ',pos(';',s)-1);
          writeln('кол-во символов после ";" = ',length(s)-pos(';',s));
     end
  else writeln('символа ";" в строке нет');
end.