with ada.text_io; 
use ada.text_io; 
 
procedure maxker is 
   type tomb is array(integer range <>) of integer; 
   i : integer; 
   s : string(1..4); 
   h : integer; 
begin 
   --adatok beolvasasa 
   put("A tomb merete: "); 
   get_line(s,h); 
   i := integer'value(s(1..h)); 
   declare 
      t : tomb(1..i);       
      max : integer;   -- maximum hely 
   begin 
      for k in 1..i loop 
         put("t[" & integer'image(k) & "] = "); 
         get_line(s,h); 
         t(k) := integer'value(s(1..h)); 
      end loop; 
       
       
      --itt kezdodik a maxker 
      max := 1; 
      for k in 2..i loop 
         if t(k) > t(max) then 
            max := k; 
         end if;          
      end loop; 
       
      --eredmeny kiirasa 
      put_line("A max hely: " & integer'image(max) & "; max ertek: " & integer'image(t(max)) );             
   end; 
end maxker;