с помощью подпрограмм ввода и вывода вектора ввести и вывести матрицу 4*4
то, что есть у меня:
program lab_11;
const n=4;
type vec=array[1..n] of byte;
var
a:vec;
i:byte;
procedure vvod (a:vec);
var i:byte;
begin
randomize;
for i:=1 to n do
a:=random(100);
end;
procedure vivod(a:vec);
var i:byte;
begin
for i:=1 to n do
write(a:3);
writeln;
end;
begin
for i:=1 to n do
begin
vvod(a);
vivod(a);
end;
end.


как надо по другому ввести вектор, чтобы результат был типа:
44 6 75 41
16 45 12 24
16 45 12 24
16 45 12 24