From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,f551137f17ab163f,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-05-04 06:41:14 PST
Path: 
 newsfeed.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!nntp.news.xara.net!xara.net!gxn.net!server6.netnews.ja.net!server4.netnews.ja.net!server2.netnews.ja.net!newshost.central.susx.ac.uk!news.bton.ac.uk!not-for-mail
From: sc297 <sc297@brighton.ac.uk>
Newsgroups: comp.lang.ada
Subject: sort function
Date: Fri, 04 May 2001 13:52:08 +0100
Organization: University of Brighton
Message-ID: <3AF2A5F8.63668DBD@brighton.ac.uk>
NNTP-Posting-Host: cs206c4.it.bton.ac.uk
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: saturn.bton.ac.uk 988980729 27025 194.81.200.133 (4 May 2001 12:52:09
 GMT)
X-Complaints-To: news@bton.ac.uk
NNTP-Posting-Date: 4 May 2001 12:52:09 GMT
X-Mailer: Mozilla 4.75 [en] (WinNT; U)
X-Accept-Language: en
Xref: newsfeed.google.com comp.lang.ada:7148
Date: 2001-05-04T12:52:09+00:00
List-Id: <comp.lang.ada>

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;