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

uses crt;
var
 i,k:integer;
 s:string;
begin
clrscr;
 writeln('stroka:');
 readln(s);
 i:=Pos(';',s);
 if i>0 then k:=length(s)-i;
 write('до ',i-1,' posle ',k);
 end.
readln;
end.