Опрацювання табличних велечин

Фрагмент процедури для обчислення суми значень усіх елементів табличної величини:
 s := 0;
for i := 1 to 10 do s :=  s + a[i];
Фрагмент процедури для знаходження кількості значень елементів табличної величини, що дорівнюють заданому числу: 
k := 0; 
for i := 1 to 10 do If a[i] = x Then k := k+1;
Фрагмент процедури для визначення, чи є задане число серед значень елементів табличної величини: 
f := false;
for i := 1 to 10 do
If a[i] = x
Then begin
              f := true; break;
          end;
Фрагмент процедури для визначення найбільшого значення серед елементів табличної величини: 
max :=a[1];
for i := 2 to 10 do If a[i] > max Then max :=a[i];
Фрагмент процедури для визначення найбільшого і найменшого елементів у табличній величині, значення всіх елементів якої різні, їх номерів та перестановки цих значень місцями: 
max :=a[1]; nmax := 1;
min :=a[1]; n:= 1;
for i := 2 to 10 do 
If a[i] > max
Then
   begin 
       max := a[i];
       nmax := i;
   end
Else
 If a[i] < min;
Then
   begin 
      min  := a[i];
      nmin := i;
   end;
a[nmax]  := min; a[nin]  := max;