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