1. begin
2. para:=0;
3. s:=' ';
4. writeln('W macierzy wystepuja nastepujace pary liter: ');
5. for i:=1 to 7 do
6.     begin
7.  
8.     for j:=1 to 7 do
9.       begin
10.  
11.  
12.       if (macierz[i,j]>='A') and (macierz[i,j]<='Z') or (macierz[i,j]>='a') and (macierz[i,j]<='z') then
13.          begin
14.              flag:=false;
15.               for k:=1 to 7 do
16.               begin
17.                       if(flag=true) then break;
18.  
19.                         for l:=1 to 7 do
20.                         begin;
21.  
22.  
23.  
24.                             if ((macierz[i,j]>='A') and (macierz[i,j]<='Z')) and ((ord(macierz[k,l])=ord(macierz[i,j])+32)) then
25.                             begin;
26.                              Writeln(' Porownywane litery   ',macierz[i,j], ' : ' , macierz[k,l]);
27.                             para:=para+1;
28.                             s:=' '+macierz[i,j]+' '+macierz[k,l]+' Para nr. : ' ;
29.                             writeln(s,' ',para);
30.  
31.                             flag:=true;
32.                             macierz[k,l]:='0';
33.                             end;
34.                             s:=' ';
35.                             if(flag=true) then break;
36.  
37.                         end;
38.               end;
39.       end;
40.    end;
41. end;
42.  
43. writeln('Ilosc par wynosi');
44. writeln(para);
45. end;