Прблема с файлами

[Joowood]

program lab_7;
uses
	crt;
const
	FileName='MyFile.txt';
label
	1;
var
	G:text;
	n:char;
	d:string;
	spots:integer;
	choose:byte;

procedure spotschecker;
begin
	spots:=0;
	assign (G\FileName);
      reset (G);
	while not EOF (G) do
	begin
		read (G,n);
		if n='.' then spots:=spots+1;
		if n='?' then spots:=spots+1;
		if n='!' then spots:=spots+1;
		write (n);
	end;
	writeln (' ');
	writeln ('Bcero B TeKcTe ',spots,' npegJloZheNii');
end;

begin
	clrscr;
	Writeln ('Bbl HaxoguTecb B rJlaBHoM MeH|0');
	Writeln ('1-co3gaTb HoBblu text-file');
	Writeln ('2-noc4uTaTb koJlu4ecTBo npegJlozheNii');
	Writeln ('3-Bblxod');
	readln (choose);
	if choose = 3 then end.
	if choose = 2 then spotschecker;
	if choose = 1 then newfile;
	readln;
end.

У меня не получается указать путь к файлу. Подскажите что нужно написать если у меня файл находится на диске G, а имя файла Myfile.

[Stilet]

assign ('G:\FileName',G);

[phomm]

поправочка (взял, правда, из справки дельфи)

AssignFile(var F; FileName: string);

в Вашем случае надо

AssignFile(G, 'G:\путь\'+filename);

для Паскаля, полагаю, просто Assign , а не Assignfile