Проблема с модулем в паскале

[deu4er]

Код:

unit MODUL;
Interface
A, B, C:array [1..30,1..30] of integer;
i, j, s:integer;
m, n, l, k:byte;
Procedure BBogBbIBog1;
Procedure BBogBbIBog2;
Procedure yMH;
Procedure My3oH;
Implementation
Procedure BBogBbIBog1;
begin
     for i:=1 to m do
     for j:=1 to n do
     begin
          write ('[',i,', ',j,'] = ');
          readln (A[i, j]);
     end;
     for i:=1 to m do
     begin
          for j:=1 to n do
          write (A[i, j]:5);
          writeln;
     end;
end;
Procedure BBogBbIBog2;
begin
     for i:=1 to n do
     for j:=1 to k do
     begin
          write ('[',i,', ',j,'] = ');
          readln (B[i, j]);
     end;
     for i:=1 to n do
     begin
          for j:=1 to k do
          write (B[i, j]:5);
          writeln;
     end;
end;
Procedure yMH;
begin
     for i:=1 to m do
     for j:=1 to k do
     begin
          s:=0;
          for l:=1 to n do
          s:=s+A[i, l]*B[l, j];
          C[i, j]:=s;
     end;
     for i:=1 to m do
     begin
          for j:=1 to k do
          write (C[i, j]:5);
          writeln;
     end;
end;
Procedure My3oH;
begin
     sound(540);delay(30000);nosound;
     sound(480);delay(10000);nosound;
     sound(420);delay(20000);nosound;
     sound(480);delay(20000);nosound;
     sound(540);delay(10000);nosound;delay(10000);
     sound(540);delay(10000);nosound;delay(10000);
     sound(540);delay(30000);nosound;
     sound(480);delay(10000);nosound;delay(10000);
     sound(480);delay(10000);nosound;delay(10000);
     sound(480);delay(30000);nosound;
     sound(540);delay(10000);nosound;delay(10000);
     sound(660);delay(10000);nosound;delay(10000);
     sound(660);delay(30000);nosound;
     sound(540);delay(20000);nosound;
     sound(480);delay(20000);nosound;
     sound(440);delay(40000);nosound;
end;
program 6peg;
uses MODUL;
BEGIN
     clrscr;
     writeln ('Pa3MePHocTb MaTpuLLbI A : ');
     write ('4uCJIo CTpoK = ');
     readln (m);
     write ('4uCJIo CToJI6LLoB = ');
     readln (n);
     BBogBbIBog1;
     readln;
     writeln ('Pa3MePHocTb MaTpuLLbI B : ');
     writeln ('4uCJIo CTpoK = ',n);
     write ('4uCJIo CToJI6LLoB = ');
     readln (k);
     BBogBbIBog2;
     readln;
     My3oH;
     writeln ('MATPuLLA C = ');
     yMH;
     readln;
END.

помогите пожалуйста правильно организовать модуль, мне ошибку выдаёт, ничего не пойму

[OCTAGRAM]

Какую ошибку?

[deu4er]

Implementation expected №73
непонимаю почему не видит Implementation

[Stilet]

Это что все в одном файле хранится?
Нельзя так, Модуль от программы отдельно должен быть.

[OCTAGRAM]

Во–первых,

var {!!!!!}
А, B, C:array [1..30,1..30] of integer;

Во–вторых, вместо «program 6peg;» надо end., а саму программу в другой файл.

[deu4er]

да да я разобрался уже (= спасибо вчере защитил задачу