和pascal有关的病毒

我昨天在做pascal题时，编译以后产生了一个EXE文件，但瑞星说是病毒（名称：Trojan.BAT.DeltreeY.an），便给杀了，然后这个程序就没法使用，（别的程序好好的），请高人救救我呀！
原程序：program AA;
const
d:array[1..2,1..2] of integer=((1,0),(0,1));
var
a:array[1..3,1..102] of integer;
b:array[1..302] of integer;
f:array[1..100,1..3,1..102] of integer;
c:array[1..301] of integer;
n:1..100;
z,u1,u2:integer;
function can:boolean;
var
m,q,x,y,x1,y1:integer;
begin
can:=false;
for q:=1 to 3*n+1 do
c[q]:=0;
for x:=1 to 3 do
for y:=1 to n+2 do
for m:=1 to 2 do
begin
x1:=x+a[m,1];
y1:=y+a[m,2];
if ((y1=1) and (x1=2)) or ((y1=n+2) and (x1=2)) or ((y1>1) and (y1<n+2)) then c[ABS(a[x,y]-a[x1,y1])]:=1;
end;
for q:=1 to 3*n+1 do
if c[q]=0 then exit;
can:=true;
end;
begin
for u1:=1 to 3 do

2道和数组有关的题（PASCAL） 有关pascal的输出问题 有关PASCAL的，高手进！ FREE PASCAL的有关问题 有关PASCAL的一个问题 free pascal和turbo pascal的区别 和QQ有关的病毒 一个有关pascal的问题，非常菜 pascal中一个有关输出的问题 有关pascal的一个问题，高手进