with Ada.Text_IO;

procedure kimenet_atiranyitas is
   use Ada.Text_IO;

   Kimeneti_Fajl : File_Type;                              -- ebbe a fajlba iranyitjuk a kimenetet (a standard kimenet helyett)
begin
  Put_Line("Atiranyitos program indul");

   Create(Kimeneti_Fajl, Out_File, "kimenet.txt");         -- letrehozzuk a fajlt (kimeneti fajlkent)
   Set_Output(Kimeneti_Fajl);                              -- a kimenet atiranyitasa a kimenetifajl-ba
   Put_Line("Program indul");                              --| amit itt irunk az mar a fajlba megy
                                                           --| ...
   Put_Line("Program vege");                               --|
   Set_Output(Standard_Output);                            -- visszaallunk a standard kimenetre (standard_output)

  Put_Line("Atiranyitos program vege");
end kimenet_atiranyitas;