Длинное целое

[The riddle]

Люди добрые,помогите пожалуйста програмкой вычитания единицы из очень длинного целого(DELPHI)Не могу разобраться,со смещением((

[Neeter]

Есть тип Int64 (-2^63..2^63-1)
Это вроде самое длинное целое.
Для данного типа, самое большое число это - 999999999999999999
Вот пример уменьшения на единицу:

procedure TForm1.Button1Click(Sender: TObject);
var
 n: Int64;
begin
 n := StrToInt64(edit1.Text);
 dec(n);
 edit2.Text := IntToStr(n);
end;

[The riddle]

Спасибо за код,но это ОченьДлиноеЦелое – это целое число с очень большим количеством знаков (>200) так что операции с этим числом не соответствуют ни одному из существующих стандартных числовых типов.

[Vedrus]

Если меньше 255 знаков, то можно на строках сделать программу, если больше - лучше файлами. Первый вариант у меня есть на Delphi, второй - на ассемблере. Если нет желания писать самому - уступлю за дорого. Если есть желание писать самому - могу помочь бесплатно. Пиши.

[Neeter]

Значит надо использовать число как строку.

procedure TForm1.Button2Click(Sender: TObject);
var
 n: string;
 Last: byte;
 NNulls: integer;
 i: integer;
 indexLastNull: integer;
begin
 NNulls := 0;
 n := Edit3.Text;
 for i := Length(n) downto 1 do
  if n[i] = '0' then
  begin
   inc(NNulls);
   indexLastNull := i;
  end;
 if NNulls <> 0 then
 begin
  Delete(n, indexLastNull, NNulls);
  Last := StrToInt(n[Length(n)]);
  dec(Last);
  Delete(n, Length(n), 1);
  n := n + IntToStr(Last);
  for i := 0 to NNulls - 1 do
   n := n + '9';
  Edit4.Text := n;
 end
 else
 begin
  Last := StrToInt(n[Length(n)]);
  dec(Last);
  Delete(n, Length(n), 1);
  n := n + IntToStr(Last);
  Edit4.Text := n;
 end;
end;

Такой огромный код, потому что идет проверка на нули в конце числа.

[The riddle]

Огромное спасибо,я дописала оставшиеся кусочки программыРаботает