with Ada.Text_IO; use Ada.Text_IO;
with Ada.Float_Text_IO; use Ada.Float_Text_IO;

procedure Lucka31 is


   S : String(1..200);
   StringCounter : Integer;
   DelayTime : Duration:= 1.0;
begin

   Put("Skriv in en rad text: ");
   for J in 1..S'Last loop
      Get(S(J));
      if End_Of_Line then
     StringCounter:= J;
     exit;
      end if;
   end loop;

   Put("Du skrev in: ");
   for K in 1..StringCounter loop
      Put(S(K));
      if K /= Stringcounter-1 then
     delay Delaytime;
     Delaytime:= Delaytime - 0.08;
      else
     delay 0.05;
      end if;

   end loop;



end Lucka31;