Arkadaşlar runtime 216

[coolofgod]

Arkadaşlar bu programı çalıştırıyorum
programda bir sıkıntı yok ama runtime hatasi veriyor çözemedim runtime 216 hatası veriyor. Çözümü Bilen varsa acil lütfen ödev yetiştirmem lazım

program deneme;
var
a,k,m,n,swi:integer;
dizi:array[1..99] of integer;
begin
writeln('Dizinin boyutunu giriniz');
readln(a);
for k:=1 to a do
dizi[k]:=0;


swi:=0;
k:=1;
while (k<=a) do
begin
randomize;
dizi[k]:=random(99)+1;
m:=1;
while (swi=0) or (m<=a) do
begin
if (m<>k) then
begin
if (dizi[k]=dizi[m]) then
swi:=1
else
m:=m+1;
end
else
m:=m+1
end;
if (swi=0) then
k:=k+1;
end;
for n:=1 to a do
writeln(dizi[k]);
end.

 

[eSa]

Bu sorun bilgisayarınıza SubSeven Truva virüsü bulaşmışsa oluşabilir.

Bilgisayarınıza bu virüsün bulaşıp bulaşmadığını belirlemek için, aşağıdaki Web sitelerini ziyaret edin:http://www.symantec.com/avcenter/venc/data/backdoor.subseven.html
http://www.europe.f-secure.com/v-descs/subseven.shtml



Kaynak : http://support.microsoft.com/kb/259279/tr