Як зберігається інформаціяя в базі даних

Var
 a: array[0..99] of integer;
begin
  //заполняем массив случайными числами
  Randomize();
  for var i:=0 to 99 do a[i]:=random(-100,100);
 
  //а теперь заменяем все отрицательные элементы на ноль
  for var i:=0 to 99 do 
    if (a[i]<0) then a[i]:=0;
end.

Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива
program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer;
beginWrite('введите ');for i := 1 to n doread(A[i]);  n1:=n;  for var i:=n downto 1 do{в цикле просматриваем элементы массива}  begin    if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент}    begin{если нужно – удаляем i-ый элемент}      for var j := i to n1 - 1 do         A[j] := A[j + 1]; {сдвигаем}       A[n1]:=0;        Dec(n1); {уменьшаем количество элементов}    end;  end;  for var i:=1 to n1 do    write(A[i], ' ');end.

Var i,n,m: integer;
    a: set of 0..9;
    b: set of 0..9 =[0,1,2,3,4,5,6,7,8,9];
     c: array[1..200] of integer;
begin
  write(' N = ');
  readln(n);
  Randomize;
  for i:=1 to n do
  begin
    c[i]:=Random(255);
    write(c[i],' ');
  end;
  writeln;
  a:=[];
  for i:=1 to n do
   begin
    m:=c[i];
    while (m>0) do
    begin
      a:=a+[(m mod 10)];
      m:=m div 10;
    end;
  end;
  b:=b-a;
  if b<>[] then
  begin
    write('в записи чисел массива не содержатся цифры :  ');
    foreach i in b do write(i,' ');
  end
  else
 writeln('встречаются все цифры');
end.