Перевод отрицательных чисел в двоичную систему

[ioda1986]

Задача на то чтобы перевести отрицательное десятиное число в двоичное.
Преобразование осуществляется путем инверсии бит и прибавления единицы.Заранее благодарю.Примерный код приведен ниже.

function IntToStr(I: Longint): String;
{ Convert any integer type to a string }
var
S: string;
begin
Str(I, S);
IntToStr := S;
end;

[p51x]

У вас алгоритм написан. Так возьмите и запишите, а не копи-пасьте чей-то код... Там всего одна строка, если без проверок.