Построения графика функций y=sin(x) — Pascal(Паскаль)

uses Graph; {используется модуль Graph - там описаны графические функции}
var 
Gd, Gm: Integer;
x, y: real;
begin
Gd := Detect; {константа "Detect" определена равной 0, все равно что Gd := 0}
InitGraph(Gd, Gm, ''); {инициализация графического режима}
SetBkColor(1); {делаем синий цвет фона, на котором...}
line(50,0,50,480); 
line(50,200,640,200); {...рисуем координатные оси}
moveto(50,200); {и переходим в начало координат,...}
x:=1;
repeat
y:=sin(x);
lineto(50+round(x*50),100+(100-round(y*20))) ; {..откуда рисуем график}
x:=x+0.02
until x>10;
Readln; {ожидание нажатия пользователем клавиши Enter}
CloseGraph; {выход из графического режима}
end.