Проблема с модулем Graph

[Rus 47]

Привет всем.
Такая проблема.
Написал небольшую программку с использованием модуля Graph, нажимаю ctrl+f9 появляется картинка и...всё, выйти обратно нельзя, комп виснет намертво, помогает только ресет с кнопки на системнике.
думал, что прогу коряво написал, но потом взял прогу, которую наш препод написал, та же проблема.
Самое интересное, что в техникуме на компах всё пашет, и моя и препода.
Переустановил винду, пробовал на разных паскалях (брал папки с прогой у друзей). не помогло. Что делать?
Те две проги приаттачил.

[capta1n]

driver:=detect - пусть определит сам

[Rus 47]

Дело не в этом. в проге 123.pas сделано так

[OCTAGRAM]

У меня в School Pak работает:

[Rus 47]

OCTAGRAM Спасибо за прогу, в скулпаке у меня тоже работает. )

[-HunteR-]

Извините, что не по теме, но возник вопрос:
Можно ли регулировать толщину линий в pascal?
Просто делать круг с толщиной границ в 5 пикселей таким вот действием как-то неудобно:

for i:= 0 to 4 do
begin
circle(200,200,30-i);
end;

[Stilet]

SetLineStyle есть...

[Incolour]

Построить кривую по заданному параметрическому представлению:
х=rt-d*sint,y=r-d*cost t типа real..r,d>0( циклоида)
Значения r,d задаются с клавы.Исследовать случаи r>=<d......
Сам блок до рисования написать бы

[OCTAGRAM]

http://programmersforum.ru/showpost.php?p=221736

похожая задача

[Incolour]

Спасибо.....И как в этом можно разбираться.....:/