Программа игнорирует initgraph

Procedure Draw(var str2:string);
var
S,x,y:integer;
 
begin
initgraph(x, y,' ');
SetBkColor(blue);
S:=16;
x:=getmaxX div 2;
y:=getmaxY div 2;
SetTextStyle(3,1,S);
SetFillStyle(1,green);
OutTextXY(x,y,str2);
end;

uses Graph;
Procedure Draw(x,y:integer; var str2:string);
var S:integer;
begin
SetBkColor(blue);
S:=3;
SetTextStyle(3,1,S);
SetColor(green);
OutTextXY(x,y,str2);
end;
var x,y:integer;
    s:string;
begin
initgraph(x, y,'');
SetBkColor(blue);
x:=getmaxX div 2;
y:=getmaxY div 2;
s:='123456';
Draw(x,y,s);
readln
end.

Program Kurs;
uses SysUtils, Process, graph;
var
 str, str0:string;
 f: file;
 i: integer;
 
Procedure Compile(var str:string);
var
  proc : TProcess;
  outfile : string;
begin
  outfile := ChangeFileExt(str, '.txt');
 
  proc := TProcess.Create(nil);
  proc.CommandLine := 'C:\FPC\2.6.4\bin\i386-win32\fpc.exe -b ' + str +
                      ' -Fe' + outfile;
  proc.Options := proc.Options + [poWaitOnExit];
  proc.Execute;
 
  proc.Free;
  end;
 
Procedure Draw(var str2:string);
var
S,x,y:integer;
 
begin
initgraph(x,y,' ');
x:=getmaxX div 2;
y:=getmaxY div 2;
S:=16;
SetBkColor(blue);
SetTextStyle(3,1,S);
SetFillStyle(1,green);
OutTextXY(x,y,str2);
end;
 
 
Procedure Search(var str0:string);
var
f:text;
i,j:integer;
prov,str,str1,str2,str3:string;
flag0,flag00,flag1,flag2,flag3:boolean;
 
begin
assign(f,str0);
reset(f);
flag0:=true;
str1:='';
while not Eof(f) do
begin
if flag0=true then
begin
readln(f,str);
prov:='';
for j:=1 to length(str) do
begin
prov:=prov+str[j];
if prov='Compiling' then break;
end;
end;
if prov='Compiling' then
begin
readln(f,str);
flag00:=true;
flag0:=false;
flag1:=false;
flag2:=false;
flag3:=false;
str2:='';
for i:=1 to length(str) do
begin
if str[i]='(' then
flag1:=true;
if (str[i+1]=')') or (str[i+1]=',') then
flag2:=true;
if flag2=true then
begin
str1:=str1 + ' ';
flag1:=false;
flag2:=false;
end;
if flag1=true then
str1:=str1 + str[i+1];
str2:=str2+str[i];
if i=length(str) then
Draw(str2);
end;
end;
 
end;
end;
 
 
 
 
Procedure Output(var str0:string);
var
 f:text;
 Nstr,i,j:integer;
 str,str1,str2:string;
 flag1,flag2:boolean;
begin
assign(f,str0);
reset(f);
Search(str0);
end;
 
begin
write('Ââåäèòå ïóòü ê ôàéëó .pas: ');
read(str);
if str='test' then
str:='D:\Ret\University\Kursovaya\Test.pas';
str0:=str;
for i:=length(str0) downto 1 do
if str0[i]='.' then
begin
delete(str0, i+1, length(str0)); break;
end;
str0:=str0+'txt';
assign(f,str0);
rewrite(f);
close(f);
Compile(str);
Output(str0);
end.

x := detect; // Добавляем это
initgraph(x,y,''); // и убираем пробел между апострофами. Там должна быть пустая строка !!!

Procedure Draw(var str2:string);
var
  S:integer;
  x,y:smallint;
begin
  x := detect;
  initgraph(x,y,'');
  x:=getmaxX div 2;
  y:=getmaxY div 2;
  S:=16;
 
  SetFillStyle(SolidFill,blue); // заменяем SetBkColor вот на такую конструкцию
  bar(0, 0, pred(getmaxx), pred(getmaxy));
  SetTextStyle(SansSerifFont,HorizDir,S); // не многовато, 16-то?
  SetColor(white);
  OutTextXY(x,y,str2);
end;