нужно перевести программу из Turbo Pascal в Delphi

[Insensible Doll]

препод дал задание по кср. программа написана в паскале, а мы работаем с делфи. никакие модули воспринимать не хочет, все равно пишет ошибку. помогите перевести в делфи, чтобы все хорошо шло. очень хочется, все-таки получить допуск к экзамену:
program oscillations;

{$APPTYPE CONSOLE}

uses
crt.graph.graphs;

SysUtils;

var
amplitude1.frequency1.phase1,
amplitude2.frequency2.phase2:Real;

type
oscill=object;
amplitude.frequency.phase:Real;
procedure Init (var amplitude1.frequency1.f1:real);
procedure Draw (time_increment:real:color. y_shift: integer);
procedure Draw_Summa (amplitude2.frequency2.phase2.
time_increment:real:color. y_shift: integer);
procedure Draw_Product (amplitude2.frequency2.phase2.
time_increment:real:color. y_shift: integer);
end;

procedure Oscill.Init (var amplitude1.frequency1.f1:real);
begin
write('введите амплитуду сигнала');
readln (amplitude);
write('введите частоту сигнала');
readln (frequency);
write('введите фазу сигнала');
readln (phase);
amplitude1:=amplitude;
frequencu1:=frequence;
phase1:=phase;
end;

procedure Oscill.Draw (time_increment:real:color. y_shift: integer);
var
y,time:real;
begin
time:=0;
repeat
y:=amplitude*sin(frequency*time+pha se+pi);
putpixel(round(time).round(y+y_shif t).color);
time:=time+time_increment;
until
time>640;
end;

procedure Oscill.Draw_Summa (amplitude2.frequency2.phase2.
time_increment:real:color. y_shift: integer);
var
y1,y2,time:real;
begin
time:=0;
repeat
y1:=amplitude*sin(frequency*time+ph ase+pi);
y2:=amplitude2*sin(frequency2*time+ phase2+pi);
putpisel(round(time).round(y1+y2+y_ shift).color);
time:=time+time_increment;
until
time>640;
end;

procedure Oscill.Draw_Product (amplitude2.frequency2.phase2.
time_increment:real:color. y_shift: integer);
var
y1,y2,time,scale:real;
begin
time:=0;
scale:=getmaxy/(amplitude2*amplitude*2);
repeat
y1:=amplitude*sin(frequency*time+ph ase+pi);
y2:=amplitude2*sin(frequency2*time+ phase2+pi);
putpisel(round(time).round(scale*y1 *y2+y_shift).color);
time:=time+time_increment;
until
time>640;
end;

var
osc1,osc2: oscill;
begin
osc1.init(amplitude1.frequency1.pha se1);
osc2.init(amplitude2.frequency2.pha se2);
open_graph;
setbkcolor(11);
osc1.draw(0.01,12,150);
osc2.draw(0.01,4,250);
readln;
cleardevice;
osc1.draw_summa(amplitude2.frequenc y2.phase2.0.01,5,240);
readln;
cleardevice;
osc1.draw_product(amplitude2.freque ncy2.phase2.0.01,5,240);
readln;
close_graph;
end.

[Z1000000]

не уверен , что в Паскале это компилировалось

putpisel(round(time).round(y1+y2+y_ shift).color);

Перевести не трудно, но занудно. Предложи оплату - народ набежит!

[Vikenty]

Я переведу за $$$ ICQ 612979261

[Insensible Doll]

Vikenty?
и сколько?