program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
type tablica = array[1..7,1..7] of char;

var
  macierz : tablica;
  macierzPar: tablica;
  i, j, suma, litery, cyfry, maxim, kolumna, para, k, l  : integer;
   u, again : char;
   plikMacierz : file of char ;
   s: string;
   flag: boolean;
begin


 begin

AssignFile(plikMacierz,'plikMacierz.bin');                                {Odczyt z pliku }
Reset(plikMacierz);
while not EoF(plikMacierz) do
begin;
for i:=1 to 7 do
    begin
      for j:=1 to 7 do
         read(plikMacierz,macierz[i,j]);
    end;
end;
 CloseFile(plikMacierz) ;
 end;
  begin
    for i:=1 to 7 do
   begin
    s:=' ';
      for j:=1 to 7 do
          s:=s + macierz[i,j]+ ' ';
          writeln(s);
   end;
end;
begin
para:=0;
s:=' ';
writeln('W macierzy wystepuja nastepujace pary liter: ');
for i:=1 to 7 do
    begin

    for j:=1 to 7 do
      begin


      if (macierz[i,j]>='A') and (macierz[i,j]<='Z') or (macierz[i,j]>='a') and (macierz[i,j]<='z') then
         begin
             flag:=false;
              for k:=1 to 7 do
              begin
                      if(flag=true) then break;

                        for l:=1 to 7 do
                        begin;



                            if ((macierz[i,j]>='A') and (macierz[i,j]<='Z')) and ((ord(macierz[k,l])=ord(macierz[i,j])+32)) then
                            begin;
                             Writeln(' Porownywane litery   ',macierz[i,j], ' : ' , macierz[k,l]);
                            para:=para+1;
                            s:=' '+macierz[i,j]+' '+macierz[k,l]+' Para nr. : ' ;
                            writeln(s,' ',para);

                            flag:=true;
                            macierz[k,l]:='0';
                            end;
                            s:=' ';
                            if(flag=true) then break;

                        end;
              end;
      end;
   end;
end;

writeln('Ilosc par wynosi');
writeln(para);
end;
readln;
end.