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;
type tekstowy = TextFile;
var
  macierz : tablica;
  i, j, suma, litery, cyfry  : integer;
   u, again : char;
   plikTekst : file of char ;
   s: string;

begin
AssignFile(plikTekst,'plikTekst.bin');
Reset(plikTekst);
while not EoF(plikTekst) do
begin;
for i:=1 to 7 do                                                    {Wyswietlanie macierzy}
    begin
      for j:=1 to 7 do
         read(plikTekst,macierz[i,j]);
    end;
end;
 CloseFile(plikTekst) ;
for i:=1 to 7 do
   begin
      for j:=1 to 7 do
         write(macierz[i,j]:2,' ');
      writeln;
   end;

readln;
end.