Прветствую вас в этой теме. Сам я новичок, поэтому у меня появилось достаточно много вопросов в написании
программ.Буду рад предоставить себе и другим людям возможность ответить и получить ответы через этот форум . С уважением к каждому.
Левон Григорян.

В данный момент у меня есть один вопрос:почему нормально не работает эта прога:

uses Crt, Graph ;
var
grdr, grmd :integer;
begin
grdr:=Detect;
InitGraph(grdr,grmd,'тут адрес нужного графичесого файла');
OutText('This is graph mode');
Delay(9999);
end.

смотря что ты понимаешь под "нормально не работает"

попробуй так

uses Crt, Graph ;
function init:integer;
var
	grDriver, grMode: integer;
begin
	grDriver := Detect;
	InitGraph(grDriver, grMode, '');
	init := GraphResult;
end;
begin
	if init = 0 then begin
		OutText('This is graph mode');
		Delay(1000);
		CloseGraph;
	end
	else
		writeln('Ups!..');
	readln;
	read;
end.