Процедуры

[Ilai]

Добрый день!
Подскажите пожалуйста, написал программу с двумя процедурами. А как теперь запустить эти процедуры-не знаю. Помогите пожалуйста.

Program Lab_6;
const n=8;
type matr=array[1..n,1..n] of integer;

Procedure Mt;

    var a:matr;
        i, j: byte;

    begin
    for i:=1 to n do
      for j:=1 to n do
        Read(a[i,j]);
        for i:=1 to n do
         begin
          for j:=1 to n do
          Write(a[i,j], ' ');
          Writeln;
          end;
      readln;
     end;

Procedure Sort;

    var a:matr;
    i, j, l: byte;
    b:integer;
    begin

for i:=1 to n-1 do
for l:=i+1 to n do
if a[i,1]>a[l,1] then
for j:=1 to n do
 begin
  b:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=b;
  end;
  for i:=1 to n do
         begin
          for j:=1 to n do
          Write(a[i,j], ' ');
          Writeln;
          end;
         end;

var a:matr;
    x:byte;
    z: byte;

   begin
{Как здесь написать процедуры?}
  readln(z);
end.

[type_Oleg]

В данном случае - никак. То есть можно вызвать процедуры вот так

begin
  Mt;
  Sort;
 readln(z);
 end.

Все сработает, процедуры вызовутся ( если там нет ошибок, я не проверял). Но это не будет иметь никаких внешних эффектов.
Матрицы a , объявляемые внутри процедур - они существуют только внутри их. И к матрице a, объявляемой в основной программе не имеют отношения, хоть и имеют то же имя и тип.

Вот если объявить так, то другое дело

 Procedure Mt(var a:matr);
// ....
 Procedure Sort(var a:matr);

[Ilai]

Сообщение от type_Oleg

В данном случае - никак. То есть можно вызвать процедуры вот так

begin
  Mt;
  Sort;
 readln(z);
 end.

Все сработает, процедуры вызовутся ( если там нет ошибок, я не проверял). Но это не будет иметь никаких внешних эффектов.
Матрицы a , объявляемые внутри процедур - они существуют только внутри их. И к матрице a, объявляемой в основной программе не имеют отношения, хоть и имеют то же имя и тип.

Вот если объявить так, то другое дело

 Procedure Mt(var a:matr);
// ....
 Procedure Sort(var a:matr);

Всё! Сработало! Большое спасибо за помощь!