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.