Прокомментировать текст программы

const nmax=100;
type Mas=array[1..nmax] of integer;
var a,b:Mas; 
n,m,i:byte;
PROCEDURE vvod(var a:Mas;x,i,nmax:integer);
begin
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' m=');
readln(x);
until x in [2..nmax];
writeln('Массив A');
for i:=1 to x do
begin
a[i]:=random(20);
write(a[i]:4);
end;
end;
PROCEDURE deystvie (var a,b:Mas;i,n,m:integer);
var x:integer;
begin
writeln;
n:=0;
for i:=1 to x do
begin
if a[i]>10 then
n:=n+1;
b[n]:=a[i];
end;
if n=0 then write('Нет чисел больше 10')
else
begin
writeln('Массив B');
for i:=1 to n-1 do
write(b[i]:4)
end;
end;
begin
vvod(a,m,i,nmax);
deystvie(a,b,i,n,m);
end.

const nmax=100; {объявили константу}
  type Mas=array[1..nmax] of integer;{и тип - массив}
var a,b:Mas;{массивы типа mas}
    m:byte;{переменная для хранения размера массива}
PROCEDURE vvod(var a:Mas;x:integer); {описание процедуры}
var
  i:integer;{вспомогательная переменная}
begin
  writeln('Массив A');
  for i:=1 to x do {цикл от 1 до размера массива}
    begin
      a[i]:=random(20);{каждому элементу массива присваиваем случайное значений от 0..19}
      write(a[i]:4);{печатаем значение элемента}
    end;
  end;
PROCEDURE deystvie (var a:Mas;x:integer);
var
  i,n:integer;
begin
  writeln;{печатаем пустую строку}
  n:=0;
  for i:=1 to x do
   if a[i]>10 then begin n:=n+1;b[n]:=a[i];end;{если элемент массива больше 10 - пихаем его в другой массив}
  if n=0 then write('Нет чисел больше 10'){нет элементтов больше 10}
 else{или печатаем содержимое полученного массива}
  begin
   writeln('Массив B');
   for i:=1 to n do
     write(b[i]:4)
  end;
end;
begin
  randomize;{активируем гадалку электронную}
  repeat{вводим размерность массива}
    write('Размер массива А от 2 до ',nmax,' m=');
    readln(m);
  until m in [2..nmax];
vvod(a,m);{вызываем процедуру заполнения массива}
deystvie(a,m);{вызываем процедуру действий с массивом}
end.