Функции и процедуры работы со строками

[Маськ@]

Помогите, пожалуйста, решить задачку следующего содержания:

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

[Yurko]

procedure abc;
var
a, b, c, i, d : integer;
s : string;
c : char;
begin
readln(s);
d := length(s);
for i := 1 to d do begin
c := copy(s,i,1); //или поменять местами i и 1
if c = ';' then
a := i;
end;
b := d-1; //количество символов до ;
c :=d-a; //после ;
writeln(b,c);
end.

[Siluet]

uses crt;
var st,st1:string;
    c,p:integer;
begin
readln(st);
p:=pos(';',st)-1;
st1:=copy(st,pos(';',st),length(st));
c:=length(st1)-1;
writeln('до запятой=',p);
writeln('после запятой=',c);
end.