переделать в процедуры и функции

[Richik123]

uses
crt;

var
i, j, chet, nechet: byte; a: array[1..5, 1..5] of byte;

begin
Randomize;
WriteLn('Сформируем матрицу размерностью 5х5.');
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
a[i, j] := Random(8) + 1;
if a[i, j] mod 2 = 0 then
chet := chet + 1
else
nechet := nechet + 1;
Write(a[i, j]:2);
end;
WriteLn();
end;
WriteLn('Количество четных чисел = ', chet);
WriteLn('Количество нечетных чисел = ', nechet);
if chet > nechet then
WriteLn('В матрице 5х5 четных чисел больше, чем нечетных.')
else
WriteLn('В матрице 5х5 нечетных чисел больше, чем четных.');
end.

[GreenWizard]

type
  AMatrix5x5 = array[1..5, 1..5] of byte;

procedure InputMatrix(var M: AMatrix5x5);
var
  i, j: Integer;
begin
  Randomize;
  for i := 1 to 5 do
    for j := 1 to 5 do
      M[i, j] := Random(8) + 1;
end;

procedure GetChetNechet(const M: AMatrix5x5; var Chet_, Nechet_: Integer);
var
  i, j: Integer;
begin
  for i := 1 to 5 do
    for j := 1 to 5 do
      if M[i, j] mod 2 = 0 then
        Chet_ := Chet_ + 1
      else
        Nechet_ := Nechet_ + 1;
end;

var
  chet, nechet: Integer;
  a: AMatrix5x5;
begin
  Randomize;
  WriteLn('?????????? ??????? ???????????? 5?5.');
  InputMatrix(a);

  GetChetNechet(a, chet, nechet);
  WriteLn('?????????? ?????? ????? = ', chet);
  WriteLn('?????????? ???????? ????? = ', nechet);
  if chet > nechet then
    WriteLn('? ??????? 5?5 ?????? ????? ??????, ??? ????????.')
  else
    WriteLn('? ??????? 5?5 ???????? ????? ??????, ??? ??????.');
end.

исправишь сообщения, а то русские буквы убило