Встречено ';', а ожидалось ')'

var o: integer;{основание системы счисления}
n: integer;{исходное число}
r: integer;{остаток от деления числа на основание}
s: string[16];{представление числа в заданной сс}
buf: string[1];
procedure str (r:integer; var buf: string);
begin
str(r,buf);
end;
begin
  readln(n);
  s:=' ';
  {делим исходное число на основание системы счисления до тех пор, пока остаток
  от деления больше основания системы счисления. Остаток от деления - очередная
  цифра.}
  repeat
    r:=n mod 3;{очередная цифра}
    n:=n div 3;
    Str (r:integer; buf:string);
    s:=buf+s;
    until (n<0);
    Str (n,buf);
    s:=buf+s;
    write(s);
end.

procedure str (r:integer; var buf: string);
begin
str(r,buf);
end;

str(r,buf);

buf:=intostr(r);

//перевод из 10 в 2-16
const digit:string[16]='0123456789ABCDEF'; //цифры в СС от 2 до 16
{функция перевода Dec числа в любую сс
n-число в сс 10, r-система счисления в которую переводим}
function FromDec(n,r:integer):string;
begin
result:='';
repeat
result:=digit[(n mod r)+1]+result;
n:=n div r;
until n=0;
end;
var n,o:integer;
begin
write('n=');
readln(n);
write('o=');
readln(o);
write(FromDec(n,o))
end.