Program diagrama (input, output);
Uses crt,graph;
Type
t=array [1..10] of integer;
Var
x,y:t;
n,i,z,m,s,d,xn,xk,yn,yk:integer;
BEGIN
Clrscr;
write('Vvedite n=');
readln(n);
write('Vvedite x[1]=');
readln(x[1]);
m:=x[1];
For i:=1 to n do begin
readln (x[i]);
If x[i]>m then
m:=x[i];
end;
For i:=1 to n do
y[i]:=round(100*x[i]/m);
writeln('Vvedite koordinati');
readln (xn,yn,xk,yk);
d:=detect;
initgraph (d,s,'');
line (xn,yn,xk,yk);
For i:=1 to n do begin
z:=50+40*(i-1);
rectangle (z,yn-y[i],z+30,yn);
end;
readln;
closegraph;
readkey;
END.
Объясните пожалуйста в чём дело?