Немного о линейном алгоритме

uses
   crt;
const
   ARRAY_LEN = 3;
var
   a: array[1..ARRAY_LEN] of integer;
   max, min: integer;
 
procedure InitArray;
var
   i: integer;
begin
   Randomize;
   ClrScr;
   WriteLn('Source: ');
   for i := 1 to ARRAY_LEN do begin
       a[i] := Random(10);
       Write(a[i]);
   end;
   WriteLn;
end.
 
procedure MaxMin(var vmax, vmin: integer);
var
   i := 1;
begin
   vmax := a[1];
   vmin := a[1];
   for i := 2 to ARRAY_LEN do begin
       if a[i] > vmax then vmax := a[i];
       if a[i] < vmin then vmin := a[i];
   end;
end;
 
procedure Show;
begin
   WriteLn('Max: ', max,' Min: ', min);
   ReadLn;
end;
 
begin
    InitArray;
    MaxMin(max, min);
    Show;
end.

uses crt;
var a,b,c,mx,mn,mx1,mn1,mx2,mn2:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
mx1:=(a+b+abs(a-b)) div 2;{1й макс}
mx2:=(mx1+c+abs(mx1-c)) div 2;{2й макс}
mx:=(mx1+mx2+abs(mx1-mx2)) div 2;{итог}
mn1:=(a+b-abs(a-b)) div 2;{1й мин}
mn2:=(mn1+c-abs(mn1-c)) div 2;{2й мин}
mn:=(mn1+mn2-abs(mn1-mn2)) div 2;{итог}
writeln('max=',mx,'  min=',mn);
readln
end.