Информатика, паскаль. помогите пж, прогу делал, но все равно что-то не так

Для начала, модуля graph в Pascal ABC нет. Вернее, не совсем так - он есть, но по-другому обозначается, а именно - graphabc. Во-вторых, инициализировать графику в Pascal ABC не нужно - эти команды он не поймёт.Пока такое исправление, чтобы хоть как-то работало: uses crt,graphabc; const n=4; {массив названий} kt:array[1..n] of string=('Otlicniki','Horoshisty','Uspevayushie', 'Neuspevayushie'); var z:array [1..n] of integer; {Задаём массив} i,x,y,x1,y1,r,a,b,s:integer; st:string; begin clrscr; writeln('Vvedite kolichestvo po kategoriyam'); {Вывод на экран} for i:=1 to n do begin write(i,' ',kt[i],' '); readln(z[i]); end; s:=0; for i:=1 to n do s:=s+z[i]; r:=150; {Радиус окружности} b:=round(360*z[1]/s); {Рисуем круг} setpencolor(9); str(100*z[1]/s:0:2,st); x1:=x+round(r*cos(pi*b/360));{середина сектора по внешней границе для Х} if x1>=x then x1:=x1+30{правее центра диаграммы} else x1:=x1-140;{левее} y1:=y-round(r*sin(pi*b/360));{по Y} if y1=x then x1:=x1+30 else x1:=x1-140; y1:=y-round(r*sin(pi*(a+b)/360)); if y1=x then x1:=x1+30 else x1:=x1-140; y1:=y-round(r*sin(pi*(360+b)/360)); if y1

crt и graph - модули turbo pascal'я еще для древнего ms-dos'a.У авс должны быть свои графические средства. Читай хелп к нему, гугли.