1. program project1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses CRT;
6. type
7. Tablice = array[1..10] of Char;
8. var
9.   i, suma: integer;
10.   plik: text;
11.   c: char;
12.   znaki: Tablice;
13. procedure wpisz;
14.             begin
15.                               Writeln('Wprowadzone znaki:')  ;
16.             for i:= 1 to 10 do
17.                   begin
18.  
19.                   znaki[i]:=ReadKey();
20.                   write(znaki[i]);
21.                 end;
22.         end;
23. procedure wypisz;
24.             begin
25.                Writeln('Wprowadzone znaki:')  ;
26.             for i:= 1 to 10 do
27.                   begin
28.                   write(znaki[i]);
29.                 end;
30.                 Writeln() ;
31.     Writeln('Wcisnij dowolny klawisz aby przejsc dalej') ;
32.     ReadKey();
33.             end;
34.  
35.   procedure zlicz;
36.   begin
37.   suma:=0;
38.                 for i:= 1 to 10 do
39.                   begin
40.                   if ((znaki[i]>='a') and (znaki[i]<='z')) then
41.                   begin
42.                       suma:=suma+1;
43.                   end;
44.                 end;
45. Writeln('Suma malych liter: ', suma);
46.     Writeln('Wcisnij dowolny klawisz aby przejsc dalej');
47.         ReadKey();
48.             end;
49. procedure zapisz;
50. begin
51. Assign(plik,'wynik.txt');
52. Rewrite(plik);
53. for i:= 1 to 10 do
54.   begin
55.   if ((znaki[i]>='a') and (znaki[i]<='z')) then
56.   begin
57.       write(plik, znaki[i]);
58.   end
59.   else
60.       begin
61.         write(plik, chr(ord(znaki[i])+32));
62.       end;
63.       end;
64. Close(plik);
65.     Readkey();
66. end;
67. begin
68.   repeat
69.   Writeln ('Program Typ Tablicowy');
70.   Writeln ('Autor: Tomasz Habko');
71.   Writeln ('1. Wpisz Znaki');
72.   Writeln ('2. Wyswietl wpisane znaki');
73.   Writeln ('3. Wypisz Liczbe malych liter');
74.   Writeln ('4. Zapisz do pliku i zamien duze na male');
75.   Writeln ('e. Exit');
76.   Writeln('Wybierz opcje');
77.   c:=ReadKey();
78.   case (c) of
79.        '1':   begin
80.          wpisz;
81.        end;
82.         '2': begin
83.           wypisz;
84.              end;
85.         '3': begin
86.              zlicz;
87.         end;
88.           '4': begin
89.              zapisz;
90.             end;
91.         end;
92. clrscr;
93. until (c='e');
94. end.
95.