Такое дело..:\ графика с элементами ООП..

[СветланаRerum]

Здравствуйте,посмотрите кому не лень,пожалуйста..
)
не появляются одновременно фигуры.. не знаю,что с ними делать..
virtual с конструктором как раз позволяют же вроде такое делать.. ниичего не понимаю.=// =((
program hm;
Uses crt, graph;

type
Shape1=object
a,b:real;
constructor init(x,y:real);
procedure show;virtual;
end;

shape2=object(shape1)
constructor Init(x,y:real);
procedure show;virtual;
end;

constructor shape1.init;
begin a:=x; b:=y;
end;

procedure shape1.show;
var t:real;f:integer; p :real;
begin
setcolor(1);
setbkcolor(20);
t:=0;
repeat t:=t+0.15;
for f:=0 to 628 do begin
p:=120*cos(0.3*f);
a:=p*cos(f/10+t)+320;
b:=p*sin(f/10)+170;
putpixel(round(a),round(b),15);
end;
delay(100);clearviewport;
until keypressed;
end;



constructor shape2.init;
begin
a:=x;b:=y;
end;

procedure shape2.show;
var j:real; k: integer;
begin setcolor(2);setbkcolor(20);
j:=0;
repeat
j:=j+0.15;for k:=93 downto -93
do begin a:=(2*k-40*sin(k/10))*cos(k)+320;
b:=-20+40*cos(k/10)+430; putpixel(round(a),round(b),17);
end;delay(100);clearviewport;until keypressed;
end;


Var
s1:shape1; s2:shape2;
f:Integer;
driver, mode, error:Integer;
s:string;
Begin
driver:=detect;
s:='';
Initgraph(driver,mode,s);
error:=GraphResult;
if error<>GrOk then
begin
writeln(GraphErrorMsg(Error));
Halt(error)
end;
Begin

s1.init(getmaxx mod 4,getmaxy mod 3);
s1.show;
s2.init(getmaxx mod 2,2);
s2.show;

end;

CloseGraph; End.