Определение максимального и минимального элементов в одномерном массиве

uses crt;
var a:array[1..100] of real;
      i,n:integer;
      p,min,max:real;
 begin
  ClrScr;
   Writeln('Введите размерность массива');
   repeat
    Write('n=');
    Readln(n);
   until n>1;
  min:=1;
  max:=2;
   for i:=1 to n do
     if a[i]>max then
      max:=a[i];
     if a[i]<max then
      min:=a[i];
   Writeln('Min ',min:0:1);
   Writeln('Max ',max:0:1);
  Readln;
 end.

Program matric;
Uses crt;
 var b:array [1..100,1..100] of integer;
     a:array [1..100] of integer;
     i,j,n,max,min:integer;
begin
clrscr;
 Writeln (' vvedite razmernost matrici ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
for i:=1 to n do begin
                      max:=b[i,1];
                      for j:=1 to n do
                      if b[i,j]>max then max:=b[i,j];
                      a[i]:=max;
                      end;
Writeln (' Max elementy strok ');
for i:=1 to n do
write (a[i]:4);
writeln;
min:=a[i];
for i:=1 to n do
if a[i]<=min then min:=a[i];
Writeln ('minim el-t = ',min);
Readln
end.

function Maximum (V:vector;n:integer):real;
var
  i,j:integer;
  m:real;
Begin
  m:=V[1];
  for i:=2 to n do
    if V[i]>m then
      m:=V[i];
  Maximum :=m;
end;
function Minimum (V:vector; n:integer):real;
var
  i:integer;
  m:real;
Begin
  m:=V[1];
  for i:=2 to n do
    if V[i]<m then
      m:=V[i];
  Minimum:=m;
end;

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;
     matr=array[1..nmax] of mas;
function Max(v:mas;x:byte):integer;
var i:byte;
    mx:integer;
begin
mx:=v[i];
for i:=1 to x do
if v[i]>mx then mx:=v[i];
Max:=mx;
end;
function Min(v:mas;x:byte):integer;
var i:byte;
    mn:integer;
begin
mn:=v[i];
for i:=1 to x do
if v[i]<mn then mn:=v[i];
Min:=mn;
end;
var a:matr;
    b:mas;
    n,m,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(20)-9;
     write(a[i,j]:5);
    end;
   writeln;
 end;
for i:=1 to n do
b[i]:=Max(a[i],m);
writeln('Максимальные элементы строк:');
for i:=1 to n do
write(b[i],' ');
writeln;
write('Минимальный их них=',Min(b,n));
readln
end.

Program matric;
uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;
     matr=array[1..nmax] of mas;
function Max(v:mas;x:byte):integer;
var i:byte;
    mx:integer;
begin
mx:=v[x];
for i:=1 to x do
if v[i]>mx then mx:=v[i];
Max:=mx;
end;
function Min(v:mas;x:byte):integer;
var i:byte;
    mn:integer;
begin
mn:=v[x];
for i:=1 to x do
if v[i]<mn then mn:=v[i];
Min:=mn;
end;
var a:matr;
    b:mas;
    n,m,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Kol-vo strok do ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Kol-vo stolbcov do ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Ishodnaya matrica:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(20)-9;
     write(a[i,j]:5);
    end;
   writeln;
 end;
for i:=1 to n do
b[i]:=Max(a[i],m);
writeln('Max elementy strok');
for i:=1 to n do
write(b[i],' ');
writeln;
write('Min. sredi nix=',Min(b,n));
readln
end.