Блок схема к программе построение графика фукции

[Inna74]

Помогите пожалуста составить блок схему Построить график функции
y=tg(x) интервал [-10;10] шаг 0,1
Текст программы
program Graphik;
uses Graph; {подключение стандартного графического модуля}
var
x,dx:real; {аргумент и его приращение}
x1,x2:real; {диапазон изменения аргумента}
y:real; {значение функции}
mx,my:integer; {масштаб по осям Х и У –– количество точек экрана,
соответствующее единице по осям координат}
x0,y0:integer; {начало осей координат}
px,py:integer; {координаты точек на экране}
grDriver:integer; {тип видеоадаптера}
grMode:integer; {режим работы графического адаптера}
grPath:string; {путь к файлу графического адаптера (*.bgi)}
begin
grDriver:=detect; {автоматическое распознавание видеоадаптера, когда в правой
части используется встроенная функция detect или 0)
grMode:=2; {выбор графического режима видеоадаптера VGA –– 640х480,
16 цветов, 1 страница}
grPath:='x:\bp\bgi';
InitGraph(grDriver,grMode,grPath);
if GraphResult<>0 then
begin
writeln('Ошибка инициализации графического режима');
writeln('Для завершения работы нажмите Enter');
readln;
Halt; {Процедура Halt завершает выполнение программы всей программы}
end;
x0:=320;y0:=240;
mx:=20;my:=20;
{Оси координат}
Line(10,y0,630,y0);
Line(x0,10,x0,470);
{График}
x1:=-10;
x2:=10;
dx:=0.1;
x:=x1;
while (x<x2) do
begin
y:=sin(x)/cos(x);
px:=x0+Round(x*mx);
py:=y0-Round(y*my);
PutPixel(px,py,15);
x:=x+dx;
end;
readln;
closegraph; {выход из графического режима}
end.