Арифмитическое переполнение при построении множества Мандельброта

[Beywer]

По заданию необходимо построить множество Мандельброта в режиме 13h.
Программа поначалу рисует нормально множество, но почти сразу после его середины выдает ошибку: 215 Арифмитическое переполнение.
Код:
Program MondelbrotSet;
uses crt,windos;

procedure Dot(x,y:integer);
begin
Mem[$A000:320*y+x]:=25;
end;

var
i,scrX,scrY:integer;
x,x2,y,realY,realx:real;
regs:Tregisters;
BeGIN
Regs.AH:=$00;
Regs.AL:=$13;
Intr($10,Regs);
scry:=0;
realY:=1;
while(realY >= -1.1) do begin
realx:=-2; scrx:=0;
while( realx <= 1) do begin
x:= realX; y:= realY; i:=0;
while((x*x + y*y < 4) and (i < 80)) do begin
x2:= x*x - y*y + realx;
y:= 2*x*y + realy;
x:=x2;
i:=i+1;
end;
if(x*x + y*y < 4)then Dot(scrx,scry);
realX:= realX + 0.011;
scrx:= scrx + 1;
end;
realY:= realY - 0.011;
scry:= scry + 1;
end;
readln;
eND.
Здесь realx,realy - координаты точки на кмплексной плоскости
scrx,scry - координаты точки на экране
x,y,i используются для проверки попадания точки в множество.
Уже реализовал эту же программу в режиме 4h, все работает, и по идее в них различается только процедура вывода точки на экран.
В чем может быть проблема ? (если что максимальные значения, принимаемые scrx и scry 273 и 191)

[Sciv]

На уровне предположения:

Mem[$A000:320*y+x]:=25;

При указанных Вами значениях Х и У имеем:

320*191+273=61393 - больше допустимого в типе integer. Отсюда и переполнение

Попробуйте объявить переменные как longint или word

[Beywer]

Спасибо, помогло.