Арифметическое переполнение

program primer;
uses crt;
var n:word; i,k: array [1..1000] of word;
BEGIN
n:=34;
i[n]:=587;
k[n]:=19;
while i[n] > 199 do
if ((i[n] + k[n]) div 11) = 5
  then i[n]:=i[n] - k[n]
  else k[n]:=k[n]*k[n]+(i[n] div 2);
writeln('i[n]=',i[n], 'k[n]=',k[n]);
end.

program primer;
uses crt;
var n:word; i,k: array [1..1000] of word;
BEGIN
n:=34;
i[n]:=587;
k[n]:=19;
while i[n] > 199 do
begin
   if ((i[n] + k[n]) div 11) = 5
     then i[n]:=i[n] - k[n]
     else k[n]:=k[n]*k[n]+(i[n] div 2);
 
writeln(\'i[n]=\',i[n], \'  k[n]=\',k[n]);
end;
 
writeln(\'i[n]=\',i[n], \'k[n]=\',k[n]);
end.

else k[n]:=k[n]*k[n]+(i[n] div 2);

i[n]=587  k[n]=654
i[n]=587  k[n]=34793
i[n]=587  k[n]=37686
i[n]=587  k[n]=4233
i[n]=587  k[n]=27254
i[n]=587  k[n]=61321
i[n]=587  k[n]=6262
i[n]=587  k[n]=22409
i[n]=587  k[n]=26742
i[n]=587  k[n]=6025
i[n]=587  k[n]=59510
i[n]=587  k[n]=6025
i[n]=587  k[n]=59510
i[n]=587  k[n]=6025
i[n]=587  k[n]=59510
i[n]=587  k[n]=6025

program variant2;
uses crt;
var n:word; j,k: array [1..1000] of word;
BEGIN
n:=23;
j[n]:=2;
for k[n]:=$AFA downto 9 do
    if((k[n] div 4)=3) or (k[n] mod 100=0)
    then j[n]:=j[n] * k[n] + k[n] * k[n]
    else j[n]:=j[n]+k[n];
writeln('j[n]=',j[n]);
end.

program variant2;
uses crt;
var  j,k:word;
BEGIN
j:=2;
for k:=$AFA downto 9 do
if((k div 4)=3) or (k mod 100=0)
then j:=j * k + k * k
else j:=j+k;
writeln('j=',j);
readln
end.

for i:=1 to n do
 begin

 program variant2;
uses crt;
var i:integer; n:word; j,k: array [1..1000] of word;
BEGIN
n:=23;
j[n]:=2;
for i:=$AFA downto 9 do
    if((k[n] div 4)=3) or (k[n] mod 100=0)
    then j[n]:=j[n] * k[n] + k[n] * k[n]
    else j[n]:=j[n]+k[n];
writeln('j[n]=',j[n]);
end.