Dugga 2 Uppgift 2

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

--Användaren ska kunna mata in en sträng 'a' och 'b' av längden N.
--programmet ska svara hur lång den längsta sammanhängande strängen 'a' och 'b' är
--exempel: N = 10
--Användaren matar in: aaaaabbaba
--Längsta sekvensen a: 5
--Längsta sekvensen b: 2


procedure Abba is

   N: Integer;
   C: Character;
   AntalA: Integer;
   AntalB: Integer;
   MinneA: Integer;
   MinneB: Integer;
begin
   AntalA:=0;
   AntalB:=0;
   MinneA:=0;
   MinneB:=0;
   Put("Mata in N: ");
   Get(N);
   Put("Mata in strängen: ");
   for I in 1..N loop
      Get(C);
    if C='a' then
       AntalA:=AntalA + 1;
          AntalB:=0;
       if MinneA < AntalA then
          MinneA:=AntalA;

          end if;

    elsif C='b' then
       AntalB:=AntalB + 1;
          AntalA:=0;
       if MinneB < AntalB then
          MinneB:=AntalB;

       end if;

    end if;

    end loop;
    Put("Längsta sekvensen a var: ");
    Put(MinneA,0);
    New_Line;
    Put("Längsta sekvensen b var: ");
    Put(MinneB,0);

end Abba;