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

program jgcd;

function update(x: longint; R: word): string;
var
  i, ost: longint;
  s, st, chislo: string;
begin
  repeat
    ost := x mod R;
    x := x div R;
    if ost > 9 then
      st := chr(ord('A') - 10 + ost)
    else
      str(ost, st);
    s := s + st;
  until x = 0;
  for i := 1 to length(s) do
    chislo := chislo + s[length(s) - i + 1];

  update := chislo;
end;

{ ----------------- }
var
  n: integer;

begin
  write('Cislo v 10 sisteme: ');
  readln(n);

  writeln('Cislo v 2 sisteme: ', update(n, 2));

  readln;

end.