runtime-error - ファイル実行中のAdaエラーでのプログラミング

Question

Ada でプログラミングを始めたばかりですが、いくつかのファイル .adb の実行に問題があります。

with Ada.Text_IO, Ada.Integer_Text_IO; 
use Ada.Text_IO, Ada.Integer_Text_IO; 
procedure Trapeze(A:integer;B: Integer;C :Integer;D: Integer) is
   procedure Traceligne(C:Character;X:Integer) is 
   begin 
      for I in 1 .. X loop 
         Put("C"); 
   end loop; 
   end Traceligne; 
   H:Integer:=C; 
   Alpha:Integer:=D; 
   Decd:integer:=A; 
   Decg:integer:=B;

begin 
   for I in 1 .. H loop
      Traceligne(' ',Decd); 
      Traceligne('*',Alpha); 
      Traceligne(' ',Decg); 
      Decd:=Decd-Integer(Decd*I/H); 
      Decg:=Decg-Integer(Decg*I/H);
      Alpha:=Alpha+Integer(Decd*I/H)+Integer(Decg*I/H);    
   end loop;
get(x);
Trapeze(1,2,3,4) 
end Trapeze;

私はこのコードエラーがあります:

1 行目: with: コマンドが見つかりません。

このメッセージの理由がわかりません。

PS: 私のコンピューターがコマンドを認識する一部のプログラムの質問は簡単で、他の一部のプログラムでは、with Ada.Text_IO理由がわからない前に前述のエラーが表示されます。実際、コンパイルするファイルのコンパイルに本当の問題があることがわかりましたが、gcc で停止し、gnatbind と gnatlink に進みません。