Помогите разобраться с ошибкой...

[manchester_alan]

Можете исправить ошибки..? Консольное приложение, классы...

[Stilet]

program Project2;

{$MODE Delphi}

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';

var
	x, y: TMoney;
	rubles: Integer;
	kopecks: SmallInt;
begin
	write('Enter first amount: ');
	readln(rubles);
	readln(kopecks);
	x := TMoney.Create(rubles, kopecks);

	write('Enter second amount: ');
	readln(rubles);
	readln(kopecks);
	y := TMoney.Create(rubles, kopecks);

	write('x = '); x.PrintLn;
	write('y = '); y.PrintLn;
	write('x + y = '); x.Plus(y).PrintLn;
	write('x - y = '); x.Minus(y).PrintLn;
	writeln('x / y = ', x.DivBy(y));
	
	write('x * 2.5 = '); x.MulBy(2.5).PrintLn;
	write('x / 4  = '); x.DivBy(4).PrintLn;
	writeln('x = y: ', Cmp(x, y) = 0);
	writeln('x < y: ', Cmp(x, y) < 0);
	writeln('x > y: ', Cmp(x, y) > 0);
  readln;
end.

unit Unit1;

interface

type

{ TMoney }

   TMoney=class

	protected
		_rubles: 	Integer;
		_kopecks:	ShortInt;

	public

		constructor Create(rubles: Integer; kopecks: ShortInt);
		constructor Copy(const m: TMoney);


		property rubles: Integer read _rubles;
		property kopecks: Shortint read _kopecks;


		procedure Print;
		procedure PrintLn;
		function Add(const m: TMoney): TMoney;
		function Plus(const m: TMoney): TMoney;
		function Sub(const m: TMoney): TMoney;
		function Minus(const m: TMoney): TMoney;
		function DivBy(const m: TMoney): Double; overload;
		function Divide(d: Double): TMoney;
		function DivBy(d: Double): TMoney; overload;
		function Mul(d: Double): TMoney;
    function MulBy(d: Double): TMoney;
	end;


function Cmp(const m1, m2: TMoney): Longint;

implementation
 uses sysutils;

 function Cmp(const m1, m2: TMoney): Longint;
 begin
 Result:=m1.rubles-m2.rubles;
 end;

constructor TMoney.Create(rubles: Integer; kopecks: ShortInt);
begin
	_rubles := rubles;
	_kopecks := kopecks;
	if (_rubles < 0) then
	begin
		Dec(_rubles);
		_kopecks := 100 - _kopecks
	end
end;


constructor TMoney.Copy(const m: TMoney);
begin
	_rubles := m._rubles;
	_kopecks := m._kopecks
end;


procedure TMoney.Print;
var
	rubles: Integer;
	kopecks: ShortInt;
begin
	rubles := _rubles;
	kopecks := _kopecks;
	if (rubles < 0) then
	begin
		Inc(rubles);
		kopecks := 100 - kopecks;
		write('-')
	end;
	write(rubles, ',', Format('%.*d', [2, kopecks]))
end;


procedure TMoney.PrintLn;
begin
	Print;
	writeln
end;


function TMoney.Add(const m: TMoney): TMoney;
begin
	_rubles += m._rubles;
	_kopecks += m._kopecks;
	if (_kopecks > 100) then
	begin
		Inc(_rubles);
		_kopecks -= 100
	end;
	Result := self
end;

function TMoney.Plus(const m: TMoney): TMoney;
begin
   Result:=Add(m);
end;


function TMoney.Sub(const m: TMoney): TMoney;
var
	kopecks: Integer;
begin
	_rubles -= m._rubles;
	kopecks := _kopecks;
	kopecks -= m._kopecks;
	if (kopecks < 0) then
	begin
		Dec(_rubles);
		kopecks += 100
	end;
	_kopecks := kopecks;
	Result := self
end;

function TMoney.Minus(const m: TMoney): TMoney;
begin

end;


function TMoney.DivBy(const m: TMoney): Double;
var
	amount1, amount2: Double;
begin
	amount1 := _rubles + _kopecks / 100.0;
	amount2 := m._rubles + m._kopecks / 100.0;
	Result := amount1 / amount2
end;


function TMoney.Divide(d: Double): TMoney;
var
	amount: Double;
begin
	amount := (100.0 * _rubles + _kopecks) / d;
	if (amount >= 0) then
	begin
		_rubles := Trunc(amount / 100);
		_kopecks := Trunc(amount - 100 * _rubles)
	end
	else
	begin
		_rubles := Trunc(-amount / 100);
		Inc(_rubles);
		_kopecks := Trunc(amount + 100 * _rubles)
	end;
	Result := self
end;

function TMoney.DivBy(d: Double): TMoney;
begin

end;

function TMoney.Mul(d: Double): TMoney;
begin

end;

function TMoney.MulBy(d: Double): TMoney;
begin

end;

end.

Не копипастить! Правлено Лазарем.

[manchester_alan]

не что делать??)) спасибо))

[manchester_alan]

а вот где += это как исправить??

[Stilet]

А че в твоем Делфи такого еще нет?
Ну вообще то a+=b это a:=a+b.
Смекаешь?

[Antony41]

Ну вообще то a+=b это a:=a+b.

Это с какой версии начали сишный код внедрять? в XE5 такое не работает

[Stilet]

Это с какой версии начали сишный код внедрять?

В Лазарусе, знаю, есть такое. Может это и код собственно не на Делфи изначально был )
Вроде в ХЕ какой-то тоже так возможно.