Написать программу, которая будет содержать подпрограммы первого и второго задания

program z;
const n=10; x=5; y=5;
var i,j,k:byte; p:integer;
a:array [1..n] of integer;
b:array [1..x,1..y] of integer;
begin
     randomize;
     p:=1; k:=0;
     write('Вектор: ');
     for i:=1 to n do
         begin
              a[i]:=random(20)-10;
              write(a[i],' ');
              if a[i] mod 2=0
                 then
                     begin
                          inc(k);
                          p:=p*a[i];
                     end;
         end;
     writeln;
     writeln('Кол-во чётных элементов: ',k,'. Их произведение: ',p);
     writeln('Матрица:');
     for i:=1 to x do
         begin
              for j:=1 to y do
                  begin
                       b[i,j]:=random(20)-10;
                       write(b[i,j],' ');
                  end;
              writeln;
         end;
     for i:=1 to x do
         for j:=1 to y do
             if b[i,j] mod 2<>0
                then
                    begin
                         k:=i;
                         p:=j;
                         writeln('Номер первого нечётного значения (построчно): ',k,',',p,'. Его значение: ',b[k,p]);
                         exit;
                    end;
end.