Понятие подпрограммы: процедуры и функции

Type Mas=array[1..n] of integer;
var TMas:Mas;
var n:integer;
Procedure VvodM(var m:Mas);
var i:integer;
begin
for i:=1 to n do
begin
write('Vvedite znach',i,'massiva= ');
readln(m[i]);
end;
end;
Procedure Kol(var m:Mas);
var i,k:integer;
begin
k:=0;
for i:=1 to n do
if m[i] mod 2=0 then m[i]:=k+1;
end;
Procedure ShowM(m:Mas);
var i:integer;
begin
for i:=1 to n do
writeln('Kol-vo chetnih chisel= ',m[i]);
end;
begin
write('Vvedite n= ');
readln(n);
VvodM(TMas);
Kol(TMas);
ShowM(TMas);
End.

const n = 10;
type Mas = array[1..n] of integer;
var TMas : Mas; i,k : integer;
procedure Kol(m : Mas; var k : integer);
var i : integer;
begin
  k := 0;
  for i := 1 to n do
    if i mod 2 = 0 then inc(k);
end;
procedure Srednee(m : Mas; k : integer);
var i,sum : integer;
begin
  sum := 0;
  for i := 1 to n do
    if i mod 2 = 0 then sum += m[i];
  writeln('Среднее значение = ', sum/k);
end;
begin
  for i := 1 to n do begin
    TMas[i] := random(10);
    write(TMas[i], ' ');
  end;
  writeln;
  Kol(TMas, k);
  writeln('Количество четных индексов = ', k);
  Srednee(TMas, k);
end.

procedure Kol(m : Mas; var k : integer);
var i : integer;
begin
  k := 0;
  for i := 1 to n do
    if m[i] mod 2 = 0 then inc(k);
end;