Сделать блок схему алгоритма который определяет максимальное двузначное число из заданной довольной последовательностей чисел

1 uses graphABC,crt;

2 var i,x,y,x2,y2,x3,y3: integer;

3 begin

4 setwindowsize(500,500);

5 lockdrawing;

6 hidecursor;

7 repeat

8 clearwindow;

9 setpenwidth(1);

10 setbrushcolor(clblack);

11 circle(250,200,20);

12 setbrushcolor(clbrown);

13 rectangle(100,200,400,400);

14 setbrushcolor(clwhite);

15 roundrect(110,210,350,390,40,40);

16 for i:=1 to 10000 do

17  putpixel(random(235)+112,random(171)+215,clblack);

18 setbrushcolor(clblack);

19 for i:=1 to 5 do

20 circle(375,210+(i*25),10);

21 circle(375,370,15);

22 setbrushcolor(clwhite);

23 rectangle(372,360,378,380);

24 setpenwidth(5);

25 x:=250; y:=197;

26 x2:=x-40-random(10);

27 y2:=y-150-random(10);

28 x3:=x++40+random(10);

29 y3:=y-150-random(10);

30 line(x,y,x2,y2);

31 line(x,y,x3,y3);

32 circle(x2,y2,10);

33 circle(x3,y3,10);

34 sleep(2);

35 redraw;

36 until keypressed;

37 end.

Program abc;

uses GraphABC;
const
    scale = 20;
    step = 0.001;

var
    x0, y0, x1, y1: integer;
    x, y, min, max, a, b, c: real;

begin
    setwindowsize(1000, 800);
    DrawInBuffer := true;
    //    write(' введите промежуток для функции(min значение-enter- max значение) ');
    //    read(min, max);
    writeln('a=');
    read(a);
    writeln('b=');
    read(b);
    writeln('c=');
    read(c);
    
    x0 := WindowWidth div 2;
    y0 := WindowHeight div 2;
    line(20, y0, WindowWidth - 20, y0);
    line(x0, 20, x0, WindowHeight - 20);
    
    min := trunc((20 - x0) / scale);
    max := trunc((WindowWidth - 20 - x0) / scale);
    
    x := min;
    while x <= max do
    begin
        x1 := trunc(x0 + x * scale);
        
        y := a * x * x * x + b * x * x + c;
        y1 := trunc(y0 - y * scale);
        PutPixel(x1, y1, clGreen);
        
        y := a * x * abs(sin(x));
        y1 := trunc(y0 - y * scale);
        PutPixel(x1, y1, clBlue);
        
        x := x + step;
    end;
end.