Подпрограмма. Создание процедур.

[Zastiesto]

type matr=array[1..100,1..100] of integer;
function Max(a:matr;n:byte):integer;
var i,j:byte;
mx:integer;
begin
for i:=1 to n do
for j:=1 to n do
if (j>=i) then
if ((i+j)<=(n+1)) then
if a[i,j]>mx then
mx:=a[i,j];
Max:=mx;
end;
function Min(a:matr;n:byte):integer;
var i,j:byte;
mn:integer;
begin
for i:=1 to n do
for j:=1 to n do
if (j>=i) then
if ((i+j)>=(n+1)) then
if a[i,j]<mn then
mn:=a[i,j];
Min:=mn;
end;
var a:matr;
n,i,j:integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(60)-30;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:4);
end;
writeln;
writeln('max=',Max(a,n),'; min=',Min(a,n));
end.
ТРЕБОВАНИЯ! Все необходимые действия по вводу из файла исходных данных, выводу результатов, определению минимальных, максимальных значений, суммы,произведения и количества, а также формирования других значений в программах реализовать с использованием подпрограмм-процедур с параметрами.

[Летучий_СкилетиК]

if (j>=i) then
if ((i+j)>=(n+1)) then
if a[i,j]<mn then
mn:=a[i,j];

ну для начала такая запись не корректна.
Надо так писать

if ((i+j)<=(n+1)) and (a[i,j]>mx) and (j>=i)then mx:=a[i,j];

[Zastiesto]

Пусть даже и так, а как процедуру написать???

[Vanta11a]

Вот ссылка

[Летучий_СкилетиК]

ДЕРЖИ

type matr=array[1..100,1..100] of integer;
procedure Max(a:matr;n:byte;var mx:integer);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
if a[i,j]>mx then mx:=a[i,j];
end;
procedure Min(a:matr;n:byte;var mn:integer);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
if a[i,j]<mn then mn:=a[i,j];
end;
procedure vivodmas(a:matr;n:integer);
var i,j:integer;
    f2:text;
begin
     assign(f2,'d:\output.txt');
     rewrite(f2);
     for i:=1 to n do
     begin
          for j:=1 to n do
          write(f2,a[i,j]:4);
          writeln(f2);
    end;
    close(f2);
end;

procedure vvodmas(var a:matr;var n:integer);
var f:text;
    i,j:integer;
begin
     assign(f,'d:\input.txt');
     reset(f);
     readln(f,n);
     for i:=1 to n do
     begin
          j:=0;
          while (not eoln(f)) do
          begin
               inc(j);
               read(f,a[i,j]);
          end;
     readln(f);
     end;
     close(f);
     vivodmas(a,n);
end;
var a:matr;
n,i,j,Max_,Min_:integer;
begin
vvodmas(a,n);
Max(a,n,Max_);
Min(a,n,Min_);
writeln('max=',Max_,'; min=',Min_);
end.