Ошибка программирования на Аде при выполнении файлов

Я только начал программировать на Аде, и у меня возникла проблема с выполнением некоторых файлов .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_IO, а для некоторых других это дает мне ошибку, упомянутую ранее, я не знаю, почему. На самом деле я обнаружил, что реальная проблема заключается в компиляции файла, который он компилирует, но останавливается в gcc и не переходит к gnatbind и gnatlink. Надеюсь, у вас будут какие-то предложения.