Матрицы (Turbo Pascal).

[Олег1993]

Здравствуйте! Вот такое задание:Найти максимальный элемент матрицы и обнулить все элементы которые находятся левее и ниже максимального. Программу написать в пользовательском модуле. Обязателен ввод матрицы с текстового файла, его чтение и запись. Оформить ввод матрицы соответственно ее математической записи. В программе использовать цвета и различные графические манипуляции.
................................... ................................... ................................... .
Вот мои наработки:

unit matrix;
 intarface
 const   
                Nstring=10; {string - строка}
                Ncolumn=10; {column - столбец}
 
type 
                martix=array[1..Nstring,1..Ncolumn] of integer;
                procedure matrix_input(var A:matrix; var N,M:byte);
                procedure matrix_output(var A:matrix; var N,M:byte);
                function matrix_max_el(var A:matrix; var N,M,i,j:byte):byte;

 implementation
                function matrix_max_el(var A:matrix; var N,M,i,j:byte):byte;
                var max:word; ind_st,ind_col,i,j:byte;

 begin
                max:=A[i,1]; ind_st:=1;
                for i:=1 to N do
                if A[i,j]> max then 
                                    begin 
                                          max:=A[i,j]; 
                                          ind_st:=i; 
                                    end;
                for j:=1 to N do
                
                if A[i,j]> max then 
                                    begin max:=A[i,j]; 
                                          ind_col:=j; 
                                    end;
               
                if (ind_st)>(ind_col) then ind_st:=max;
                                      else ind_col:=max;
                
                for (i:=1) and (j:=1) to N,M do
 
 begin                
                A[i-1,j]:=0;
                A[i,j-1]:=0;
                A[i-1,j-1]:=0;
 end;

                matrix_output(A,N,M);

                writeln('New matrix');
                matrix_output(A,N,M);
                readln;
                end;
     
 
                
 end. 
 
 var text:file;
 begin
 clrscr;
	{чтение}
                assign(f,'C:\matrix.txt');
                reset(f);
                write(' ');
                while not Eof(f) do
                begin
                readln(f, S);
                write(S,' ');
                end;
                close(f);
                readln;
	{/чтение}

        {запись}
                assign(f,'C:\matrix.txt');        {процедура связи логического файла fr с физическим файлом }
                Rewrite(f);              {процедура открытия логического файла fr для последующей записи}
                writeln(f,'C:\matrix.txt'');       {запись строки test в файл}
                close(f);                {закрывает логический файл fr}
                end.    
        {/запись}
 end.

[Олег1993]

При компиляции пишет: "interface expected". В программе пока нет графических функций.

[Zer0]

Ругается он вовсе не на графику, а на

unit matrix;
 intarface

[Олег1993]

Изменил программу. Только пишет, что не даются запустить модуль:"Cannot run a unit". Без понятия что делать. Вот код:

unit matrix;
 interface
 const
                Nstring=10; {string - строка}
                Ncolumn=10; {column - столбец}

type
                matrica=array[1..Nstring,1..Ncolumn] of integer;
                procedure matrica_input(var A:matrica; var N,M:byte);
                procedure matrica_output(var A:matrica; N,M:byte);
                function matrica_max_el(var A:matrica; var  N,M:byte):byte;

 implementation

                procedure matrica_input(var A:matrica; var N,M:byte);
                var i,j:byte;
 begin
                for i:=1 to N do
                                begin
                                     for j:=1 to M do
                                     write(A[i,j]:10,' ');
                                     writeln;
                                end;
 end;
                function matrica_max_el(var A:matrica; var N,M:byte):byte;
                var max:word; ind_st,ind_col,i,j:byte;
 begin
                max:=A[1,1];
                ind_st:=1;
                ind_col:=1;
                for i:=1 to N do
                for j:=1 to M do
                if A[i,j]>max then
                                   begin
                                         max:=A[i,j];
                                         ind_st:=1;
                                         ind_col:=j;
                                   end;

                for i:=ind_st to N do
                for j:=1 to ind_col do
                A[i,j]:=0;
 end;
                procedure matrica_output(var A:matrica; N,M:byte);
                var i,j:byte;
 begin

                matrica_output(A,N,M);
                writeln('New matrix');
                matrica_output(A,N,M);
                readln;  readln; readln; readln; readln;

 end;
end.

[whatever]

Юнит - это вспомогательный кусок кода, который сам по себе рабаотать не может.
Нужно создать консольное приложение, вписать имя юнита в uses, написать тело программы и только потом запусать.

P.S. ты что вообще пишешь? О_о

               procedure matrica_input(var A:matrica; var N,M:byte);
                var i,j:byte;
 begin
                for i:=1 to N do
                                begin
                                     for j:=1 to M do
                                     write(A[i,j]:10,' ');
                                     writeln;
                                end;
 end;

input - это ввод. а тут ты ее печатаешь, причем процедуры формирования матрицы нет.

                procedure matrica_output(var A:matrica; N,M:byte);
                var i,j:byte;
 begin

                matrica_output(A,N,M);
                writeln('New matrix');
                matrica_output(A,N,M);
                readln;  readln; readln; readln; readln;

 end;

Два раза вызываешь процедуру из самой себя, прочем условий выхода из рекурсии нет.
Пять пустых readln'ов - зачем?
В первом сообщении тоже минимум 4 косяка сходу могу назвать, но будем считать, что он нам больше не интересен.

В общем, логика программы для меня осталась загадкой.