Пересортировать массив используя подпрограммы и Написать подпрограмму функцию определяющую число элементов массива.

uses crt;
const n=15;{размер массива}
type Tmas=array[1..n] of integer;{тип массива}
procedure Vvod(var m:Tmas);{ввод данных}
var i:byte;
begin
for i:=1 to n do
m[i]:=random(20);{случайные числа в диапазоне 0-19}
end;
procedure Vyvod(var m:Tmas);{вывод}
var i:byte;
begin
for i:=1 to n do
write(m[i],' ');{выводим в строку через пробел}
writeln;
end;
procedure Sort(var m:Tmas);{перестановка элементов}
var i:byte;
    x:integer;
begin
for i:=1 to n div 2 do{от начала до середины}
  begin
    x:=m[i];{запоминаем текущий элемент}
    m[i]:=m[n-i+1];{на его место ставим симметричный ему с конца}
    m[n-i+1]:=x;{в конец ставим текущий элемент}
  end;
end;
var a:Tmas;
begin
clrscr;
Vvod(a);
writeln('Ishodnyj massiv:');
Vyvod(a);
Sort(a);
writeln('Otsortirovannyj massiv:');
Vyvod(a);
readln
end.

uses crt;
type Tmas=array[1..50] of integer;
procedure Vvod(n:byte;var m:Tmas);
var i:byte;
begin
writeln('Vvedite ',n,' elementov massiva:');
for i:=1 to n do
  begin
   write('elem ',i,'=');{здесь ввод с клавиатуры, а то рандомом можно и не получить кратных 7}
   readln(m[i]);
  end;
end;
procedure Vyvod(n:byte; var m:Tmas);
var i:byte;
begin
for i:=1 to n do
write(m[i],' ');
writeln;
end;
function Count(n:byte;m:Tmas):byte;{функция считает количество кратных 7}
var i,c:byte;
begin
c:=0;
for i:=1 to n do
if m[i] mod 7=0 then c:=c+1;{если кратно 7 считаем}
Count:=c;
end;
var k,d:Tmas;
begin
clrscr;
Vvod(8,k);{количество компонет я не понял что у Вас написано, поставите сколько нужно, только для каждого массива во всех 4х местах одинаково}
clrscr;
Vvod(10,d);
clrscr;
writeln('Massiv K:');
Vyvod(8,k);
writeln('Kolichestvo kratnyh 7=',Count(8,k));
writeln('Massiv D:');
Vyvod(10,d);
writeln('Kolichestvo kratnyh 7=',Count(10,d));
if Count(8,k)>Count(10,d)then write('V massive K kratnyh 7 bolshe!')
else if Count(8,k)<Count(10,d)then write('V massive D kratnyh 7 bolshe!')
else write('V massivah D i K kratnyh 7 porovnu!');
readln
end.