Функция умножения.

[0479]

Доброй ночи.Помогите пожалуйста подредактировать функцию

function mnog(s:string ;i:variant):string;
var res:string;
x:variant;d,cifra:variant;j:integer;
begin
for j:=Length(s)-1 downto 0  do
begin
cifra:=StrToInt(Copy(s,j,1))*i+x;
if j<>0 then
begin
d:=cifra mod 10;
x:=cifra / 10;
end
else
begin
d:=cifra;
res:=FloatToStr(d)+res;
end;
end;
mnog:=res;
end;

Назначение её - это перемножение чисел.Работает впринципе верно.Но добавляет в число запятую.То есть 222*2=4,44 а не 444. Возможно я в типах ошибся. Заранее благодарен.

[chertovich]

А что эта функция должна делать?

[0479]

Ну у неё на вход два числа поступают и она их премножает, так как это делалось бы вручную столбиком.

[kangreon]

У меня получилось так

function mnog(s:string ;i:variant):string;
var
  m, res, Str, Pl: string;
  Ost, j: Integer;
begin
  Ost := 0;
  for j:=Length(s) downto 1  do
  begin
    Str := s[j];
    Str := IntToStr(StrToInt(Str) * i+Ost);
    Pl := Str[Length(Str)];
    m := Copy(Str,1,Length(Str)-1);
    if m = '' then
      Ost := 0
    else
      Ost := StrToInt(m);
    res := Pl+res;
  end;
  Result := m + res;
end;