BUBLE ASCENDING in Pascal

Program Buble_Ascending_09;

uses wincrt;

var
i,k, temp:integer;
L:array[1..5] of integer;
flag:boolean;

begin
clrscr;
L[1]:=1;
L[2]:=50;
L[3]:=10;
L[4]:=3;
L[5]:=2;

flag:=false;
i:=1;
while (i<5 and="" br="" do="" flag="" not=""> begin
flag:=true;
for k:=5 downto 1 do
if(L[k] begin
temp:=L[k];
L[k]:=L[k-1];
L[k-1]:=temp;
flag:=false;
end;
inc(i);
end;

begin
for i:=1 to 5 do
writeln(L[i],' ');
writeln;
end;

end.