[GNAT]Не могу скомпилировать исходник adb

with Ada.Command_Line, Text_IO, Ada.Strings.Unbounded, Ustrings;
use Ada.Command_Line, Text_IO, Ada.Strings.Unbounded, Ustrings;

procedure Show is
--выбираем каждый аргумент из коммандой строки и отображаем
--каждый файл с выделением

	procedure Show_File(Filename : String) is
--открываем "Filename" и отображаем его с выделением.
File : File_Type;
Input : Unbounded_String;
begin
	Put("Printing file ");
	Put_Line(Filename);
	Open(File, In_File, Filename);
	
	while (not End_Of_File(File)) loop
	Get_Line(File, Input);
	Put(' '); --выделение
	Put_Line(Input);
	end loop;
	Close(File);
end Show_File;

begin --procedure Show
	if Argument_Count = 0 then
	Put_Line(Current_Error, "Error - No file names given.");
	Set_Exit_Status(Failure);
	else
--открываем каждый из файлов и отображаем его.
	for Arg in 1 .. Argument_Count loop
	Show_File(Argument(Arg));
	end loop;
	end if;
end Show;

GNATMAKE 4.4.5 20100909 (prerelease)
Copyright (C) 1995-2008, Free Software Foundation, Inc.
  "show.ali" being checked ...
  -> "show.ali" missing.
gcc-4.4 -c show.adb
show.adb:1:56: file "ustrings.ads" not found
End of compilation
gnatmake: "show.adb" compilation error

GNATMAKE 4.4.5 20100909 (prerelease)
Copyright (C) 1995-2008, Free Software Foundation, Inc.
  "show.ali" being checked ...
  -> "show.ali" missing.
gcc-4.4 -c show.adb
ustrings.ads:1:01: compilation unit expected
ustrings.ads:5:01: misplaced "with"
End of compilation
gnatmake: "show.adb" compilation error