Дан массив 4x4 из целых чисел. вывести на экран только элементы

program zz1;
var x1, x2, k, max, min: integer;
m: array[1..4,1..4] of integer;
procedure vvod();
var i,j:integer;
begin
for i:=1 to 4 do begin
for j:=1 to 4 do begin
m[i, j]:=random(10); //заполнение матрицы случайными числами и вывод на экран
write(m[i, j]:3);
end;
writeln;
end;
end;
procedure vyvod();
var i,j:integer;
begin
for i:=1 to 4 do begin
for j:=1 to 4 do begin
if i mod 2 = 0 then write(m[i, j]:3);// вывод четных строк
end;
writeln;
end;
end;
begin
vvod(); // вызываем функцию ввода
vyvod();// вызываем функцию вывода
end.