program s;
        uses
            crt;
        var
        dzialanie:char;
        t:text;
        a:string;
        i,j,c,k,zastap:integer;
        tab:array[1..5,1..2] of string;
        ile_znakow:integer;

        procedure zapis;
        begin                                       //zapis do tablicy//
          for i:=1 to 5 do
           for j:=1 to 2 do
                         begin
                               readln(tab[i,j]);
                         end;

          assign(t,'C:\lol.txt');                           //zapis do pliku//
          rewrite(t);
          for i:=1 to 5 do
                        for j:=1 to 2 do
                                    write(t,tab[i,j]+chr(1));
          close(t);
          end;

        procedure odczyt;
        begin                                                   //procedura odczyt//
              assign(t,'C:\lol.txt');
              reset(t);
              read(t,a);
              close(t);

writeln(a);
                 k:=1;
                 ile_znakow:=length(a);
                 for i:=1 to 5 do                              //wczytywanie do tablicy start//
                   for j:=1 to 2 do
                                 begin
                                    repeat
                                       if a[k]<>chr(1) then
                                                          begin
                                                             tab[i,j]:=tab[i,j]+a[k];
                                                           end
                                                        else
                                                           begin
                                                             k:=k+1;
                                                             break;
                                                           end;
                                     k:=k+1;
                                    until k>ile_znakow;
                                   end;


             //sprawdzenie wpisu start//
              for i:=1 to 5 do
                for j:=1 to 2 do
                         begin
                               writeln(tab[i,j]);
                         end;
          //sprawdzenie wpisu koniec//
        end;



        begin                                                          //prgram główny//
                             textcolor(green);
                             gotoxy(31,1);
                             writeln('Porgram zrobiony przez:');
                             gotoxy(33,2);
                             writeln('Sylwester Watras');
                             gotoxy(33,3);
                             writeln('Szymon Slosarski');
                             writeln('');
                             textcolor(yellow);
                             writeln('wprowadz dane do tabeli');
                             writeln('1-zapis tablicy do pliku');
                             writeln('2-odczyt z pliku do tablicy');

                             readln(c);
        case (c) of
        1: zapis;
        2: odczyt;
        end;
        readkey;
        end.