program iza;
var
kordian: text;
linia: string;
sumac, sumab: integer;
prs: boolean;


         function suma(napisow:string):integer;
         var
          i, sum: longint;
         begin
         sum:=0;
          for i:=1 to length(napisow) do
          begin
            sum:= sum + ord(napisow[i]);
          end;
           suma:=sum;
         end;

         function pierwsza(liczba:integer):boolean;
         var
          i, suma, kopia: integer;
         begin
         kopia:=liczba;
         suma:=0;
          for i:=1 to (liczba div 2) do
          begin
          if (kopia mod i) = 0 then
          suma:=suma+1;
          if suma=1 then
          pierwsza:=true
          else
          pierwsza:=false;

          end;
         end;
         function rosnacy(napis:string):boolean;
         var
          dlugosc, i, sm:integer;
         begin
         sm:=0;
            dlugosc:=length(napis);
              for i:=1 to (dlugosc-1) do
              begin
                if ord(napis[i]) > ord(napis[i+1]) then
                sm:=sm+1;
              end;
            if sm=0 then
            rosnacy:=true
            else
            rosnacy:=false;
         end;
begin
sumab:=0;
   assign(kordian, 'napis.txt');
   reset(kordian);
   Writeln('Napisy rosnące: ');
   while not eof(kordian) do
   begin
   Readln(kordian, linia);
   if(rosnacy(linia)=true) then
   Writeln(linia);
   sumac:=suma(linia);
   prs:=pierwsza(sumac);
     if prs=true then
     sumab:=sumab+1;
   end;
   Writeln('Wyrazów pierwszych w pliku jest: ', sumab);

   close(kordian);
   readln;
end.