Программа вылетает

[alik98]

Есть простейшая программа. Она вылетает в окно редактирования на ровном месте и без каких-либо ошибок. Вылет после Readln(R,G,B), как только жму enter. Если убрать str(integer(RGB(R,G,B)),strcolor), то не вылетает. В чем проблема?

uses graph,svga,crt;
var
   grmode,grdriver,errcode:integer;
   R,G,B:byte;
   strcolor:string;

BEGIN
    clrscr;

    grdriver:=detect;
    errcode:=graphresult;
    grmode:=SVGA800X600X32768;

    writeln('Write RGB <red> <green> <blue>');
    readln(R,G,B);

    initgraph(grdriver,grmode,'');
    if graphresult=grok then
    begin

    setfillstyle(1,integer(RGB(R,G,B)));
    bar(getmaxx div 2 - 100,getmaxy div 2 - 100,getmaxx div 2 + 100, getmaxy div 2 + 100);
    str(integer(RGB(R,G,B)),strcolor);
    settextstyle(defaultfont,horizdir,2);
    setcolor(getmaxcolor-integer(RGB(R,G,B)));
    outtextxy(getmaxx div 2 - length(strcolor) div 2, getmaxy div 2, strcolor);

    end
    else
    writeln('Ошибка при инициализации графики: ',grapherrormsg(errcode));

    readln;
    closegraph;
END.

[alik98]

Вопрос снят. Графика не инициализировалась, когда str(integer(RGB(R,G,B)),strcolor) было до initgraph, перенес, всё зарработало.

[alik98]

Дабы не создавать еще одну тему спрошу тут: цвет квадрата всё время голубой, не зависимо от того, какой цвет я задаю. Как это исправить?

[Stilet]

Это не классический турбопаскаль. да?

[Poma][a]

Угу, не он, в старичке турбо нет RGB

[Stilet]

в старичке турбо нет RGB

Ну вообще-то есть но там по другому такие вещи делаются.
меня смутил модуль svga. По-моему я всетки его в ТР встречал...

[Poma][a]

Наверно я не очень точно выразился, там нет и функции RGB. Есть SetRGBPalette, но именно RGB нет.

[alik98]

Это Turbo Pascal School Pak. Он почтине отличается от классического ТР, пара новых библиотек, несколько новых процедур и функций и багофиксы.