sort function

[sc297 <sc297@brighton.ac.uk>]

help . ive written a sort funtion, but for the life of me i cant work
out what i have done wrong. help me ada people

with ada.text_io, ada.integer_text_io;
use ada.text_io, ada.integer_text_io;


procedure sort( Data: in out Vector ) is
Type Vector is array( Positive Range <> ) of Integer;


temp : integer:=0;
status : boolean := false;
swap:integer:=0;
Begin
while status /= true loop
  For I in data'first..data'last-1 loop
    If data(I)>data(I+1) then
      temp:=data(I);
      data(I):=data(I+1);
      data(I+1):=temp;
        swap:=swap+1;
    Else
      Null;
    End if;

    If swap = 0 then
      Status := true;
    Else
      Status:=false;
    End if;
  End loop;
swap:=0;
End loop;
End sort;