Написать программу, которая считает сколько знаков до «;» и после- Pascal(Паскаль)

program zamena;
uses crt;
var a,b,c:string;
begin
clrscr;
writeln('BBedu stroky buda c:=c+1');
readln(a);
if (a[1]=a[4])and(a[6]='1')and(a[2]=':')and(a[3]='=')then
 if a[5]='+'then a:='inc('+a[1]+');' else if a[5]='-' then a:='dec('+a[1]+');';
writeln(a);
readln;
end.