Процедуры и функции

program na_zakaz;
uses crt;
const n=5;
var m:array[1..n,1..n]of integer;
    max,buf,i,j:integer;
 
begin
 randomize;
 clrscr;
 
 for i:=1 to n do
 for j:=1 to n do
 m[i,j]:=random(5);
 
 writeln('Bazovaya matrica:');
 for i:=1 to n do
 begin
  for j:=1 to n do write(m[i,j]:2,' ');
  writeln;
 end;
 
 max:=-9999;
 for i:=1 to n do
 for j:=1 to 6-i do
 if m[i,j]>=max then max:=m[i,j];
 
 
 for i:=1 to n do
 begin
  buf:=m[i,n+1-i];
  m[i,n+1-i]:=m[i,i];
  m[i,i]:=buf;
 end;
 
 writeln('Novaya matrica:');
  for i:=1 to n do
  begin
   for j:=1 to n do write(m[i,j]:2,' ');
   writeln;
  end;
 
  writeln('Max. element v treugol''nike:',max);
 readln;
end.

unit Module1;
 
interface
 
TMy = object
   public
    //процедуры
 end;
 
implementation
 
//описание процедур
 
end.

unit Massiv;
 
interface
 type mm:array[1..5,1..5]of integer;
 procedure Vivod(m:mm);
 procedure ChangeDiag(m:mm);
 function MaxElem(m:mm):integer;
 
implementation
procedure Vivod(m:mm);
var i,j:integer;
begin
 for i:=1 to 5 do
 begin
  for j:=1 to 5 do write(m[i,j]:2,' ');
  writeln;
 end;
end;
 
procedure ChangeDiag(var m:mm);
var i,buf:integer;
begin
 for i:=1 to 5 do
 begin
  buf:=m[i,6-i];
  m[i,6-i]:=m[i,i];
  m[i,i]:=buf;
 end;
end;
 
function MaxElem(m:mm):integer;
var i,j,max:integer;
begin
max:=-9999;
 for i:=1 to 5 do
 for j:=1 to 6-i do
 if m[i,j]>=max then max:=m[i,j];
 MaxElem:=max;
end;
 
end.

uses myunit;