Сортировка массива

Представленный ниже фрагмент программы обрабатывает элементы одномерного целочисленного массива A с индексами от 0 до 9. Перед началом выполнения данного фрагмента эти элементы массива имели значения 2, 3, 5, 3, 7, 8, 4, 2, 5, 1 (т. е. A[0] = 2, A[1] = 3, …, A[9] = 1). Определите значение переменной b после выполнения фрагмента.

b := 0;
for i:=1 to 9 do begin
   if A[i-1] < A[i] then
      begin
        t := A[i];
        A[i] := A[i-1];
        A[i-1] := t;
        b := b + 1
    end
end;

В какой строке НЕ правильное описание массива?

Какое количество данных может находиться в данном массиве var ch: array[4..16] of integer;?

В таблице хранятся данные о количестве проданных единиц товаров (Dat[1] - проданных товаров первого типа, Dat[2] - второго и т.д.). Опреде­лите, что будет напечатано в результате выполнения программы:

Program mas5;
Var k, m: integer;
       Dat: array[1..11] of integer;
begin
Dat[1]:= 20; Dat[2]:= 25;
Dat[3]:= 19; Dat[4]:= 25;
Dat[5]:= 26; Dat[6]:= 22;
Dat[7]:= 24; Dat[8]:= 28;
Dat[9]:= 26; Dat[10]:= 21;
Dat[11]:= 27;
m := 0;
   for k := 3 to 11 do
       if Dat[k] >= 22 then
          begin
             m := m+1;
          end;
writeln(m);
End.

Массив в программировании это…