Переделать программу через процедуры

program abc;
 
const
  n = 6;
  m = 6;
 
var
  mas: array[1..n, 1..m] of char;
  i, j, x, k, c: byte;
 
begin
  randomize;
  c := 0;//количество цифр
  k := 0;//количество букв 
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      x := random(2);
      if x = 0 then//если условие истинно то 
        mas[i, j] := chr(random(26) + 97) //заполняем элемент массива буквами 
      else//иначе
        mas[i, j] := chr(random(10) + 48); //заполняем элемент массива цифрами
      write(mas[i, j]:4);//выводим массив
      if x = 0 then inc(k) else inc(c);
    end;
    
    if k > c then writeln('  True') else writeln('  False'); //если условие истинно то выодим True иначе False
    writeln;
    c := 0;
    k := 0;
  end;
end.

program abc;
uses crt;
const n = 6;
type mtr=array[1..n, 1..n] of char;
     vec=array[1..n] of boolean;
procedure Matrix(var mas:mtr);
var i,j,x:integer;
begin
for i := 1 to n do
 begin
  for j := 1 to n do
   begin
    x := random(2);
    if x = 0 then mas[i, j] := chr(random(26) + 97) //заполняем элемент массива буквами
    else  mas[i, j] := chr(random(10) + 48); //заполняем элемент массива цифрами
    write(mas[i, j]:3);//выводим массив
   end;
  writeln
 end;
end;
procedure Vector(mas:mtr;var vek:vec);
var i,j,c,k:integer;
begin
for i := 1 to n do
 begin
  c := 0;//количество цифр
  k := 0;//количество букв
  for j := 1 to n do
  if mas[i,j] in ['0'..'9'] then inc(c)
  else inc(k);
  vek[i]:=k>c;
 end;
for i:=1 to n do
write(vek[i],' ');
end;
var
  mas:mtr;
  vek:vec;
begin
  randomize;
  Matrix(mas);
  Vector(mas,vek);
end.