Проблема с написанием модуля., unit Опции

[klem4]

Вот решил посмотреть что такое модули и с чем их едят
но что-то не очень получается пока...
Суть : модуль содержит процедуру заполнения двумерного массива случайными числами и вывод на экран массива в виде матрицы.

При попытке использования модуля выдавал разные ошибки
Вот последняя : Unit name mismatch ну что ему не нравится в имени ???

Скажите ,что я сделал не правильно ?

Код

unit matr;
interface
type
 mass=array[1..100,1..100] of integer;
var
   x:mass;
   i,j:integer;
   rnd:word;
   n,m:integer;
   num:integer;
procedure InputOutput;

implementation
procedure InputOutput;
begin
  randomize;

  writeln('Case Matrix Size Of : ');
  writeln('1). N*N');
  writeln('2). N*M');
  write('Input number 1 or 2 ');readln(num);
  write('rnd=');readln(rnd);
  case num of
   1: begin
         write('N=');readln(n);
         begin
            for i:=1 to n do
             begin
                for j:=1 to n do
                   begin
                      x[i,j]:=random(rnd);
                      write(x[i,j]:3);
                      write(' ');
                   end;
                writeln;
             end;
         end;
       end;
    2: begin
          write('N=');readln(n);
          write('M=');readln(m);

          for i:=1 to n do
           begin
              for j:=1 to n do
                 begin
                    x[i,j]:=random(rnd);
                    write(x[i,j]:3);
                    write(' ');
                 end;
              writeln;
           end;
       end;
    end;
end;
End.

Сообщение отредактировано: klem4 - 22.01.2005 16:39