Процедуры

[swillrocker]

Вот составил программы, но нужно их переделать с процедурами, так чтобы,
основная программа состояла бы только из последовательности вызовов подпрограмм.
В первой составить процедуру ввода массива вместо (a[1]:=3; a[2]:=2; a[3]:=1;...и.т.д)

1)

Program lab4rr;
const
  m=3;
  n=4;
type
  TA = array [1..m] of integer;
  TB = array [1..n] of integer;
  TC = array [1..m+n] of integer;
procedure someproc(a:TA;b:TB;var c:TC);
var
  i:integer;
  ixA,ixB:integer;
begin
  ixA:=1;
  ixB:=1;
  for i := 1 to m+n do
    if (a[ixA]>b[ixB]) or (ixB>n) then
      begin
        c[i]:=a[ixA];
        inc(ixA)
      end
    else
      begin
        c[i]:=b[ixB];
        inc(ixB)
      end
end;
var
  a:TA;
  b:TB;
  c:TC;
  i:integer;
begin
  a[1]:=3;
  a[2]:=2;
  a[3]:=1;
  b[1]:=8;
  b[2]:=5;
  b[3]:=3;
  b[4]:=1;
  someproc(a,b,c);
  writeln;
  for i := 1 to m+n do
    write(c[i],',');
  writeln;
  readln;
end.

2)

uses crt;
const n=10;
var matrix:array[1..n,1..n] of integer;
    i,j,k:byte;
    flag:boolean;
    skal:integer;
begin
clrscr;
writeln('Введите ',n*n,' элементов матрицы:');
for i:=1 to n do
for j:=1 to n do
read(matrix[i,j]);
readln;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
  begin
   for j:=1 to n do
   write(matrix[i,j]:3);
   writeln;
  end;
writeln;
i:=1;
flag:=true;
repeat
j:=1;
repeat
skal:=0;
for k:=1 to n do
skal:=skal+matrix[i,k]*matrix[j,k];
if ((i=j) and (skal<>1)) or ((i<>j) and (skal<>0)) then flag:=false;
j:=j+1
until not(flag) or (j=n+1);
i:=i+1
until not (flag) or (i=n+1);
if flag=true then writeln ('Ортонормированна')
else writeln ('Не ортонормированна');
readln
end.

[swillrocker]

Помогите пожалуйста, одну процедуру мне друг помог сделать... Не понимаю я в них ничего.