Arkadaşlar runtime 216

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.