1. program Project1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses
6.   {$IFDEF UNIX}{$IFDEF UseCThreads}
7.   cthreads,
8.   {$ENDIF}{$ENDIF}
9.   Classes
10.   { you can add units after this };
11. type tablica = array[1..7,1..7] of char;
12.  
13. var
14.   macierz : tablica;
15.   macierzPar: tablica;
16.   i, j, suma, litery, cyfry, maxim, kolumna, para, k, l  : integer;
17.    u, again : char;
18.    plikMacierz : file of char ;
19.    s: string;
20.    flag: boolean;
21. begin
22.  
23.  
24.  begin
25.  
26. AssignFile(plikMacierz,'plikMacierz.bin');                                {Odczyt z pliku }
27. Reset(plikMacierz);
28. while not EoF(plikMacierz) do
29. begin;
30. for i:=1 to 7 do
31.     begin
32.       for j:=1 to 7 do
33.          read(plikMacierz,macierz[i,j]);
34.     end;
35. end;
36.  CloseFile(plikMacierz) ;
37.  end;
38.   begin
39.     for i:=1 to 7 do
40.    begin
41.     s:=' ';
42.       for j:=1 to 7 do
43.           s:=s + macierz[i,j]+ ' ';
44.           writeln(s);
45.    end;
46. end;
47. begin
48. para:=0;
49. s:=' ';
50. writeln('W macierzy wystepuja nastepujace pary liter: ');
51. for i:=1 to 7 do
52.     begin
53.  
54.     for j:=1 to 7 do
55.       begin
56.  
57.  
58.       if (macierz[i,j]>='A') and (macierz[i,j]<='Z') or (macierz[i,j]>='a') and (macierz[i,j]<='z') then
59.          begin
60.              flag:=false;
61.               for k:=1 to 7 do
62.               begin
63.                       if(flag=true) then break;
64.  
65.                         for l:=1 to 7 do
66.                         begin;
67.  
68.  
69.  
70.                             if ((macierz[i,j]>='A') and (macierz[i,j]<='Z')) and ((ord(macierz[k,l])=ord(macierz[i,j])+32)) then
71.                             begin;
72.                              Writeln(' Porownywane litery   ',macierz[i,j], ' : ' , macierz[k,l]);
73.                             para:=para+1;
74.                             s:=' '+macierz[i,j]+' '+macierz[k,l]+' Para nr. : ' ;
75.                             writeln(s,' ',para);
76.  
77.                             flag:=true;
78.                             macierz[k,l]:='0';
79.                             end;
80.                             s:=' ';
81.                             if(flag=true) then break;
82.  
83.                         end;
84.               end;
85.       end;
86.    end;
87. end;
88.  
89. writeln('Ilosc par wynosi');
90. writeln(para);
91. end;
92. readln;
93. end.