Оформить программу через процедуру

program lab1;
var x:array [1..10,1..10] of real;
n,m,i,j:integer;
s,p:real;
begin
write ('Введите количество строк массива n= ');
readln(n);
write ('Введите количество столбцов массива m= ');
readln (m);
writeln ('Введите элементы массива:');
for i:=1 to n do
for j:=1 to m do
begin
write ('x[',i,',',i,']=');
readln (x[i,j])
end;
begin
for i:=1 to n do
for j:=1 to m do
write (x[i,j]:6:1);
writeln;
end;
 
if x[1,1]>0 then begin
s:=0;
for i:=1 to n do
for j:=1 to m do
if not odd(i) then s:=s+x[i,j];
end
else
begin
p:=1;
for i:=1 to n do
for j:=1 to m do
if not odd (i) then p:=p*x[i,j];
end;
writeln ('s=' , s:1:2);
end.

program lab1;
uses crt;
type mtr=array [1..10,1..10] of real;
procedure vvod(var x:mtr;var n,m:integer);
var i,j:integer;
begin
write ('Ââåäèòå êîëè÷åñòâî ñòðîê ìàññèâà n= ');
readln(n);
write ('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ ìàññèâà m= ');
readln (m);
writeln ('Ââåäèòå ýëåìåíòû ìàññèâà:');
for i:=1 to n do
for j:=1 to m do
 begin
  write ('x[',i,',',j,']=');
  read (x[i,j])
 end;
end;
procedure vyvod(x:mtr;n,m:integer);
var i,j:integer;
begin
writeln('Ìàòðèöà:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write (x[i,j]:6:1);
  writeln;
 end;
end;
procedure vichisl(x:mtr;n,m:integer);
var i,j:integer;
    s,p:real;
begin
if x[1,1]>0 then
 begin
  s:=0;
  for i:=1 to n do
  for j:=1 to m do
  if not odd(i) then s:=s+x[i,j];
  writeln('Ïåðâûé ýëåìåíò>0');
  writeln ('Ñóììà ýëåìåíòîâ â ÷åòíûõ ñòðîêàõ=' , s:0:1);
 end
else
 begin
  p:=1;
  for i:=1 to n do
  for j:=1 to m do
  if not odd (i) then p:=p*x[i,j];
  writeln('Ïåðâûé ýëåìåíò íå áîëüøå 0');
  writeln ('Ïðîèçâåäåíèå ýëåìåíòîâ â ÷åòíûõ ñòðîêàõ=' , p:0:1);
  end;
end;
var x:mtr;
    n,m:integer;
begin
vvod(x,n,m);
vyvod(x,n,m);
vichisl(x,n,m)
end.