[Pascal]Problema writeln

[Luc@s]

Sto facendo un prog in pascal x imparare le basi del Delphi ma nn capisco perche sbagli a sommare i numeri al writeln():

program OhmConvert;

var
   ohm: integer;{ gli ohm }
   kiloohm: real;{ i kiloohm = ohm x 1000 }
   megaohm: real;{ i megaohm = ohm x 1.000.000}
   sc: integer;{ la scielta }
begin

while sc > 0 do
begin
	writeln('0) Esci');
	writeln('1) ohm -> kiloohm');
	writeln('2) ohm -> megaohm');
	writeln('Inserisci gli ohm ohm');
	readln(sc);
	if sc = 1 then
	begin
		kiloohm := ohm*1000;
            writeln('Ohm '+  ohm +  ' = ' + kiloohm + 'kiloohm');
	end;
	if sc = 2 then
	begin
		megaohm:= ohm*1000000;
	writeln('Ohm '+  ohm +  ' = ' + megaohm + 'megaohm');
	end;

	readln(sc);
        end;
end.