Program abc;  var m: integer; d, count: byte; var  cs1,cs2,res,change:integer;  TD:string;  {функция перевода Dec числа в любую сс}  function FromDec(n,r:longint):string;  var  s:String;  const  digit:string[9]='012345678';  begin  s:='';  repeat  s:=digit[(n mod r)+1]+s;  n:=n div r;  until n=0;  FromDec:=s;  end;  {фунция перевода любой сс в Dec}  function ToDec(n:string;r:longint):longint;  var  m,i:longint;  const  digit:string[9]='012345678';  begin  m:=0;  while n[1]='0' do  delete(n,1,1);  for i:=1 to length(n) do  m:=m*r+pos(n[i],digit)-1;  ToDec:=m;  end;  {осоновная программы}  begin  writeln('Введите из какой CC:');  repeat  readln(cs1);  until  (cs1>=2) and (cs1<=9);  writeln('Введите число в соответствии с CC:');  readln(TD);  writeln('Введите в какую CC:');  repeat  readln(cs2);  until  (cs2>=2) and (cs2<=36);  writeln('Перевод из ',cs1,' CC —> ',cs2,' CC:');  writeln(FromDec(ToDec(TD,cs1),cs2));  begin {Счетчик количества определенной цифры в числе} m:=FromDec(ToDec(TD,cs1),cs2); write('Цифра: '); readln(d); count := 0; writeln(m);        while m > 0 do begin         if m mod 10 = d then              count := count + 1;         m := m div 10;     end; writeln('Количество цифр: ', count); end; end. 

Ошибка: Project2.pas(53) : Нельзя преобразовать тип string к integer