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

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.