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=0.6 required=5.0 tests=BAYES_40,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,84e6aecb17a1b669,start
X-Google-Attributes: gid103376,public
From: mrbunny@mail.zynet.co.uk
Subject: Simple Student Problem Ada83
Date: 1997/04/19
Message-ID: <3358b2bb.2065467@news>#1/1
X-Deja-AN: 235952661
Organization: Zynet Ltd
Newsgroups: comp.lang.ada
Date: 1997-04-19T00:00:00+00:00
List-Id: <comp.lang.ada>



I have started a computer programming course at Thames Valley
University in Slough, UK. where we are using Ada 83  for an
introduction to programming.

I have a simple problem but cannot find an answer in my course notes
or text books! How do I delete a record from an array? The set up for
the array is as follows;

TYPE item_rec IS
              RE CORD
                    	ref_num   	: refnum_type;
                      	descrip   	: descrip_type;
                      	value      	: integer;          	
                      	hirer        	: name_type;        	
              END RECORD;

TYPE item_array IS ARRAY(integer RANGE <> ) OF item rec;

-- declare data variable to hold stock data

max_size : CONSTANT integer := 20;         	
stock : item_array(l..max_size);
num_items : integer; 


-- Instantiation of array_file to hold stock items data

PACKAGE item_file IS NEW array_file(item_rec, item_array,
"stock.dat");

Can anyone advise of a simple solution?

Thanks for your help.

Mark.