Грешка при програмиране в Ada при изпълнение на файлове

Току-що започнах да програмирам в 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: с: командата не е намерена.

Не знам причината за това съобщение.

PS: Въпросът е прост за някои програми, компютърът ми разпознава командата with Ada.Text_IOcommand, а за някои други ми дава грешката, спомената преди, не знам защо. Всъщност открих, че истинският проблем е в компилирането на файла, който компилира, но спира в gcc и не продължава към gnatbind и gnatlink. Надявам се, че ще имате някои предложения.