program project1;

{$mode objfpc}{$H+}

uses CRT;
type
Tablice = array[1..10] of Char;
var
  i, suma: integer;
  plik: text;
  c: char;
  znaki: Tablice;
procedure wpisz;
            begin
                              Writeln('Wprowadzone znaki:')  ;
            for i:= 1 to 10 do
                  begin

                  znaki[i]:=ReadKey();
                  write(znaki[i]);
                end;
        end;
procedure wypisz;
            begin
               Writeln('Wprowadzone znaki:')  ;
            for i:= 1 to 10 do
                  begin
                  write(znaki[i]);
                end;
                Writeln() ;
    Writeln('Wcisnij dowolny klawisz aby przejsc dalej') ;
    ReadKey();
            end;

  procedure zlicz;
  begin
  suma:=0;
                for i:= 1 to 10 do
                  begin
                  if ((znaki[i]>='a') and (znaki[i]<='z')) then
                  begin
                      suma:=suma+1;
                  end;
                end;
Writeln('Suma malych liter: ', suma);
    Writeln('Wcisnij dowolny klawisz aby przejsc dalej');
        ReadKey();
            end;
procedure zapisz;
begin
Assign(plik,'wynik.txt');
Rewrite(plik);
for i:= 1 to 10 do
  begin
  if ((znaki[i]>='a') and (znaki[i]<='z')) then
  begin
      write(plik, znaki[i]);
  end
  else
      begin
        write(plik, chr(ord(znaki[i])+32));
      end;
      end;
Close(plik);
    Readkey();
end;
begin
  repeat
  Writeln ('Program Typ Tablicowy');
  Writeln ('Autor: Tomasz Habko');
  Writeln ('1. Wpisz Znaki');
  Writeln ('2. Wyswietl wpisane znaki');
  Writeln ('3. Wypisz Liczbe malych liter');
  Writeln ('4. Zapisz do pliku i zamien duze na male');
  Writeln ('e. Exit');
  Writeln('Wybierz opcje');
  c:=ReadKey();
  case (c) of
       '1':   begin
         wpisz;
       end;
        '2': begin
          wypisz;
             end;
        '3': begin
             zlicz;
        end;
          '4': begin
             zapisz;
            end;
        end;
clrscr;
until (c='e');
end.