Есть программа, которая должна выводить график max и min функции, но она почему то не работает

Program Graphik;
uses Graph;
Type T=array[1..256] of real;
gt=string[18];
var
Gd,Gm: integer;
z1,z2,z3: byte;
Procedure Grf(tc:Gt; x,y: word; z1,z2,z3: byte; Mas:T);
var
st: string[7];
sv:string [3];
ot,dy,min,max:real;
I,R: integer;
begin
setviewport (x,y,(317+x), (154+y), true);
clearviewPort;
SetBKcolor(0);
Setcolor(z1);
OutTextxy (117,5,Tc);
Line(115,3,253,3);
line(115,16,253,16);
line(115,3,115,16);
line(253,3,253,16);
line(59,19,59,146);
line(60,82,315,82);
max:=mas[1];
min:=mas[1];
for i:=2 to 256 do begin
if mas[i]> max then max:=mas[i];
if mas [i]< min then min:=mas[1];
end;
if ABS(max) > ABS(min)then begin
Dy:=ABS(max)/62;
if min<0 then ot:=-max
else ot:=min
end
else begin
Dy:=ABS(min)/62;
ot:=Min;
end;
if Max=Min then begin
Dy:=ABS(max)/62;
if min=0 then ot:=min
else ot:=0
end;
setcolor(z3);
for i:=0 to 256 do begin
if dy>0 then r:=round(mas[i+1]/dy)
else R:=0;
if R>0 Then line((i+16),81,(i+60),(81-R)) else line ((i+60),83,(i+60),(83-R))
end;
If ABS(max)>ABS(min) then dy:=ABS(max)/3;
dY:=abs(min)/3;
for i:=0 to 6 do
begin
Setcolor(z2);
if i <>3 then line(60,(145-21*i),316,(143-21*i));
if dy<>0 then  begin
str((ot+dy*i),st);
Setcolor(z1);
Outtextxy(1,(143-21*i),st);
end;
end;
for I:=1 to 25 do begin
setcolor(z2);
line((60+10*I),19,(60+10*I),145);
if (I mod 3)=0then begin
Setcolor(z1);
str((I*20), st);
Outtextxy((46+10*I),147, st);
end;
end;
end;
end.

Program Graphik;
uses
  Graph;
Type
  T=array[1..256] of real;
  gt=string[18];
var
  i,Gd,Gm: integer;
  z1,z2,z3: byte;
  mass:t;
 
Procedure Grf(tc:Gt; x,y: word; z1,z2,z3: byte; Mas:T);
var
st: string[7];
sv:string [3];
ot,dy,min,max:real;
I,R: integer;
 
begin
  setviewport (x,y,(317+x-1), (154+y), true);
  clearviewPort;
  SetBKcolor(0);
  Setcolor(z1);
  OutTextxy (117,5,Tc);
  Line(115,3,253,3);
  line(115,16,253,16);
  line(115,3,115,16);
  line(253,3,253,16);
  line(59,19,59,146);
  line(60,82,315,82);
  max:=mas[1];
  min:=mas[1];
  for i:=2 to 256 do
    begin
      if mas[i]> max then max:=mas[i];
      if mas [i]< min then min:=mas[1];
    end;
  if ABS(max) > ABS(min)then
    begin
      Dy:=ABS(max)/62;
      if min<0 then ot:=-max
      else ot:=min
    end
  else
    begin
      Dy:=ABS(min)/62;
      ot:=Min;
    end;
  if Max=Min then
    begin
      Dy:=ABS(max)/62;
      if min=0 then ot:=min
      else ot:=0
    end;
  setcolor(z3);
  for i:=0 to 256 do
    begin
      if dy>0 then r:=round(mas[i+1]/dy)
      else R:=0;
      if R>0 Then line((i+16),81,(i+60),(81-R)) else line ((i+60),83,(i+60),(83-R))
    end;
  If ABS(max)>ABS(min) then dy:=ABS(max)/3;
  dY:=abs(min)/3;
  for i:=0 to 6 do
    begin
      Setcolor(z2);
      if i <>3 then line(60,(145-21*i),316,(143-21*i));
      if dy<>0 then
        begin
          str((ot+dy*i),st);
          Setcolor(z1);
          Outtextxy(1,(143-21*i),st);
        end;
    end;
  for I:=1 to 25 do
    begin
      setcolor(z2);
      line((60+10*I),19,(60+10*I),145);
      if (I mod 3)=0 then
        begin
          Setcolor(z1);
          str((I*20), st);
          Outtextxy((46+10*I),147, st);
        end;
    end;
end;
 
begin
  for i:=1 to 256 do
    begin
//      mass[i]:=random; // массив должен быть заполнен
      write(mass[i]:6:2);
    end;
  gd:=detect;
  initgraph(gd,gm,'');
  Grf('Any string',10,10,red,green,blue,mass);
  readln;
  closegraph;
end.