OOP - polymorfizmus
4procedure TKruh.posun(dx,dy:integer);
4var b:boolean;
4begin
4     b:=vid; if vid then skry;
4     inc(x,dx); inc(y,dy);
4     if b then ukaz;
4end;
4