Помогите с выводом процедуры

Дана матрица А [10,4] номеров мест в вагоне.
1) Заполнить её рядом натуральных чисел от 1 до 40.
2) Определить число чётных элементов, вывести его.
3) Заменить все чётные элементы в первых 5 строках нулями (бронирование места) .
4) Транспонировать матрицу А - заменить строки столбцами и записать в [4,10].

Собственно вот такое сделал, как вывести из процедуры значения?
Помогите пожалуйста

var
mas : array[1..10] of array[1..4] of integer;
mas_t : array[1..4] of array[1..10] of integer;
i,j,k : integer;

procedure create;
var
i,j : Integer;
begin
randomize;
for i:=1 to 10 do
for j:=1 to 4 do
mas[j]:=random(39)+1;
write (mas[j]);
writeln;
end;

procedure chislo_chetn;
var
i,j,k : integer;
begin
k:=0;
for i:=1 to 10 do
for j:=1 to 4 do
if mas[j] mod 2=0
then k:=k+1;
writeln('Chislo chetnih = ',k);

end;

procedure zamena;
var
i,j : integer;
begin
for i:=1 to 5 do
for j:=1 to 4 do
if mas[j] mod 2=0
then mas[j]:=0;
end;

procedure transportirovka;
var
i,j : integer;
begin
for i:=1 to 10 do
for j:=1 to 4 do
mas_t[j]:= mas[j];

end;
begin

end.