Ошибка getch

[dogma007]

В универе выполняем работу, проверьте правильность, при запуске выдает ошибку getch. Проверьте пжлста правильность кода:

/*rabota po kursu modelirovanie sistem*/
/*Variant 2.2*/
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <time.h>
#include <graphics.h>

float x[5001], y[5001], A1,B,z,sum,dt=0.5,mx=120,sigx=10,al f=0.02,y0=100,p=500,V=0.25,w20=100, a1=1e-5,a2=2e-6,
Kd=0.01,Tn=5,Kn=1.0,w3,Kp=900,sum2, sum3,M,P,my,sigy,disy,py[2500],k,cy;

char w[80];
int i,j;

main()
{
int gdr=DETECT, gmod;
initgraph(&gdr, &gmod," ");
randomize();

A1=exp(-alf*dt);
B=sigx*sqrt(1-A1*A1);

x[0]=0;
for(i=1;i<5001;i++)
{
sum=0;
for(j=1;j<13;j++)
sum=sum+rand()/32767.0;

z=sum-6.0;
x[i]=A1*x[i-1]+B*z;
}

/*Reshenie pervogo uravnenia*/
for(i=0;i<5001;i++)
x[i]=x[i]+mx;

setcolor(8);

for(i=1;i<6;i++)
line(70,30*i,570,30*i);

for(i=0;i<6;i++)
line(70+100*i,30,70+100*i,150);

settextjustify(2,1);
for(i=0;i<6;i++)
{
sprintf(w,"&d",50+15*i);
outtextxy(65,150-30*i,w);
}
settextjustify(1,2);
for(i=0;i<6;i++)
{
sprintf(w,"%d",0+500*i);
outtextxy(70+100*i,155,w);
}

outtextxy(40,10,"x(t)");
outtextxy(610,160,"T,c");
outtextxy(295,15,"Grafic chastoti vrashenia dvigatelya");

setcolor(4);

moveto(70,90);
for(i=1;i<501;i++)
lineto(70+i,-x[i*10]*2+245);

/*Reshenie 2go uravnenia*/
y[0]=y0;
w3=0;
for(i=0;i<5001;i++)
{
w3=w3-dt*w3/Tn-dt*Kn/Tn*Kp*Kd*(y[i]-y0);
y[i+1]=y[i]-dt*a1/V*y[i]*x[i]+dt*p*a2*w20/V+dt*p*a2*w3/V;
}

setcolor(8);

for(i=0;i<6;i++)
line(70+100*i,185,70+100*i,305);

for(i=0;i<5;i++)
line(70,185+30*i,570,185+30*i);

settextjustify(2,1);
for(i=0;i<5;i++)
{
sprintf(w,"%d",98+i);
outtextxy(65,305-30*i,w);
}
settextjustify(1,2);
for(i=0;i<6;i++)
{
sprintf(w,"%d",0+500*i);
outtextxy(70+100*i,310,w);
}

outtextxy(80,165,"y(t) Kmol/kub.m");
outtextxy(610,315,"T,c");
outtextxy(360,170,"Grafic koncentracii cellulozi v processe merserizacii");

setcolor(4);

moveto(70,245);
for(i=0;i<501;i++)
lineto(70+i,-y[i*10]*15+1745);

/*Reshenie 3go uravnenia*/

sum=0;
sum2=0;

P=400;
M=5001;

/*Matematicheskoe ojidanie*/

for(i=P;i<M;i++)
sum=sum+y[i];
my=sum/(M-P);

/*Dispersia*/

for(i=P;i<M;i++)
sum2=sum2+(y[i]-my)*(y[i]-my);

disy=sum2/(M-P);
sigy=sqrt(disy);

/*Korreliacia*/

for(k=0;k<251;k++)
{
sum3=0;

for(i=P;i<M-k;i++)
sum3=sum3+(y[i]-my)*(y[i+k]-my);
py[k]=sum3/disy/(M-P-k);
}

/*Koefficient variacii*/

cy=sigy/my*100;
setcolor(8);
for(i=0;i<6;i++)
line(70+50*i,340,70+50*i,448);

for(i=0;i<7;i++)
line(70,340+18*i,320,340+18*i);

settextjustify(1,2);
for(i=0;i<6;i++)
{
sprintf(w,"%d",0+25*i);
outtextxy(70+50*i,458,w);
}

settextjustify(2,1);
for(i=0;i<7;i++)
{
sprintf(w,"%3.3f",-1+0.3333334*i);
outtextxy(65,450-18*i,w);
}

outtextxy(300,328,"Graphic korreliacionnoi phunkcii");
outtextxy(370,460,"T,c");

setcolor(4);

moveto(70,340);
for(i=1;i<251;i++)
lineto(70+i,-py[i]*53+394);


/*Vivod na ekran rezultatov*/

setcolor(8);
settextjustify(0,0);
outtextxy(325,360,"Matematicheskoe ojidanie:");
sprintf(w,"%4.3f",my);outtextxy(585 ,360,w);
outtextxy(325,380,"Дисперсия:");
sprintf(w,"%4.3f",disy);outtextxy(5 85,380,w);
outtextxy(325,400,"Средн.квадр.откл .:");
sprintf(w,"%4.3f",sigy);outtextxy(5 85,400,w);
outtextxy(325,420,"коэф.вариации:") ;
sprintf(w,"%4.2f%",cy);outtextxy(58 5,420,w);

getch();

closegraph();
}
/*End*/

[Sweta]

добавьте

#include <conio.h>

[dogma007]

С getch разобрались.
Подскажите что может быть с настройками в турбо си досовском, в универе все работает на том же турбо си.
Тут выдает linker error: unable to open file cos.obj
Файл проверил, на месте