queue = array[1..10] of integer;
procedure sort1(var queue1:queue;n:integer);
procedure awap(var x,y:integer);
var
Form1: TForm1;
i:integer;
dataarray:queue;
我这个编译不过去，报错
queue = array[1..10] of integer;这行报错信息：ldentifier redeclared:'queue'
提示说queue被重复定义了，你查查看哪里还有关于queue的定义