// Программа проверки функций и процедур модуля динамических байтовых массивов

uses heaptrc,dynarrayunit;
var pda:pdarray; i,count:longword; data:byte;
begin
 write('Введите кол-во элементов массива: ');
 readln(count); 
 pda:=DACreate(count);
 writeln('Вводите набор числовых значений: ');
 for i:=0 to DALength(pda)-1 do begin
  readln(data);
  DASet(pda,i,data);
 end;
 writeln('Введены данные: ');
 for i:=0 to DALength(pda)-1 do 
  writeln(DAGet(pda,i));
 DADestroy(pda);
end.