Bubble Sort with Pascal

uses crt;

type arr=array[1..10] of byte;
var
data:arr;
var i:byte;

procedure Tukar(var a,b:byte);
var
c:byte;
begin
c:=a; a:=b; b:=c;
end;

procedure Ascending;
var
p,q:byte;
flag:boolean;
begin
flag:=false;
p:=2;
while (p<11)> data[q-1] then
begin
Tukar(data[q],data[q-1]);
flag:=false;
end;
inc(i);
end;
for i:= 1 to 10 do
begin
write(data[i],' ');
delay(200);
end;
end;


{main programme}
begin
clrscr;
writeln('BubbleSort');
write('Ascending : ');
ascending;
write('Descending : ');
descending;
readln;
end.