Graph, метод вывода Опции

[sheka]

я хочу сделать мультипликацию с помощью видеостраниц.
вопрос:
когда делаю вывод с помощью setactivepage,setvisualpage - после вывода второй страицы содержимое первой смещается куда-то вниз, а не исчезает.
а если делаю как прочитал в одной книге:

Код

procedure init;
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
if gd in [HercMono,EGA,EGA64,MCGA,VGA] then  / разница в наличии
  if gd<>HercMono then  SetGraphMode(gm-1);   \ этих строчек
end;

то изображение получается искаженным (вытянутым по вертикали).

почему? должно ли так быть?