Не работает код программы, написанный в другой версии Паскаля

program graph_paskal;
Uses 
  Graph;//Подключение модуля библиотеки графических процедур
var 
GraphDriver, 
  GraphMode : integer;
x,y,h:real; 
k:integer; 
x1,y1:integer; 
i,j:integer; 
stri:string;
begin
GraphDriver := detect;//автоопределение типа драйвера 
  InitGraph(GraphDriver, GraphMode, '..BGI');//Инициализация графического режима
SetWindowPos(0,0); // задает позицию левой верхней точки окна
SetWindowSize(1024,900); // устанавливает размеры клиентской части графического окна в пикселях
line(600,450,1000,450); // рисует отрезок от точки (600,450) до точки (1000,450), по горизонтали
line(800,200,800,700); // рисует отрезок от точки (800,200) до точки (800,700), по вертикали
x:=-1.5; // начальные значения
k:=10;
h:=0.02;
i:=5;
j:=0;
while x<3.2 do // пока x<3.2
begin
y:=x*x*x-2*x*x+1; // вычисляется значение Y для значения X в данной точке
y1:=-trunc(y*k); // вычисляется значение Y как целое от (y*k) и инвертирует
x1:=trunc(x*k); // вычисляется значение X1 как целое от (x1*k)
i:=i+15;
// if (i>=860) and (i<=875) then //
if (i>=715) and (i<=730) then // когда текст достигает нижнего конца
begin 
j:=j+150; // точка вывода переводится на 150 пикселей вправо
i:=15; // и задается 15 пикселей от верхнего края
end;
 
str(x:5:2,stri); // в переменную stri записывается значение x (с двумя цифрами после запятой)
TextOut(j+10, i, ' x = '); // выводится ' x = ' в точке (j+10,i)
TextOut(j+35, i, stri); // выводится stri(значение x) в точке (j+35,i)
TextOut(j+70, i, ' y = '); // выводится ' y = ' в точке (j+70,i)
str(y:5:2,stri); // в переменную stri записывается значение y (с двумя цифрами после запятой)
TextOut(j+95, i, stri); // выводится stri(значение y) в точке (j+95,i)
 
x:=x+h; // увеличивается значение x на шаг (h)
SetPixel(x1+800,y1+450, clBlack); // закрашивает точку с координатами (x1+800,y1+450) в черный цвет
end;
 
line(1000,450,980,440); // рисует верхнюю часть стрелки для оси X
line(1000,450,980,460); // рисует нижнюю часть стрелки для оси X
line(800,200,790,220); // рисует левую часть стрелки для оси Y
line(800,200,810,220); // рисует правую часть стрелки для оси Y
 
TextOut(1000, 430, 'x'); // выводит надпись на оси X
TextOut(810, 190, 'y'); // выводит надпись на оси Y
СloseGraph;//Закрытие графического режима
end.