Перевод из десятиричной системы счисления в любую другую (Delphi)

[Asblue]

Здравствуйте. Мне нужно на Делфи написать код перевода из десятиричной системы счисления в любую другую.
Вот суть алгоритма, по которому мне это нужно сделать:
b=2;
v=1;
i=0;
While b>0 do
begin
m = a mod b,
a:=(a-m)/b,
i:=i+m*v.
Если а=0, тогда v=0,
Иначе v=v*10.
Заканчивается цикл
и возвращается значение i.

У меня получился бредовый код, выдающий ошибку, связанную с типами данных и вообще он не работает :-\

procedure algoritm;
begin
b:=2;
v:=1;
i:=0;
while (v>0) do
begin
  m:=a mod b;
  a:=(a-m)/b;
  i:=i+m*v;
  if a=0 then v:=0
  else v:=v*10
  end;
end;
return(i);
 
end.

[denisbrain]

Сообщение от Asblue

Здравствуйте. Мне нужно на Делфи написать код перевода из десятиричной системы счисления в любую другую.
Вот суть алгоритма, по которому мне это нужно сделать:
b=2;
v=1;
i=0;
While b>0 do
begin
m = a mod b,
a:=(a-m)/b,
i:=i+m*v.
Если а=0, тогда v=0,
Иначе v=v*10.
Заканчивается цикл
и возвращается значение i.

У меня получился бредовый код, выдающий ошибку, связанную с типами данных и вообще он не работает :-\

procedure algoritm;
begin
b:=2;
v:=1;
i:=0;
while (v>0) do
begin
  m:=a mod b;
  a:=(a-m)/b;
  i:=i+m*v;
  if a=0 then v:=0
  else v:=v*10
  end;
end;
return(i);
 
end.

http://netsoftware.ucoz.ru/news/prog.../2012-03-01-17

[ACE Valery]

Asblue, ошибку надо писать в таком виде, как вам выдает компилятор.
Я вообще не вижу, чтоб у вас где-то в процедуре были объявлены переменные...

[Vanta11a]

return(i);

Разве так можно в Delphi? Я что-то упустил?