program project1;

var
  plik,plik2:text;
  przesuniecie,napis,roz,nazwa,nazwa2:string;
  i,dl,a,b,l,wart:integer;

begin
  roz:='.txt';
  write('Podaj nazwe pliku i wcisnij enter: ');
  readln(nazwa);
  assign(plik, nazwa+roz);
  {$I-}
  reset(plik);
  {$I+}

  if (IOResult = 0) then
  begin
       readln(plik, napis);
       writeln;
       writeln('Zawartosc Twojego pliku: ', napis);
       writeln;
       writeln('Wybierz i nacisnij enter: ');
       writeln('1: Szyfracja');
       writeln('2: Deszyfracja');
       readln(a);
       writeln;
       repeat
               writeln('Podaj przesuniecie i nacisnij enter: ');
               readln(przesuniecie);
               val(przesuniecie,l,wart);
       until(wart=0);
       dl:=length(napis);

  case a of
       1:begin
              for i:=1 to dl do
              begin
                     //(szyfracja)warunki sprawdzające czy wyszlismy poza zakres tablicy ASCII oraz instrukcje dla nich

                     if (ord(napis[i])+l <= 255) then
                     napis[i]:=chr(ord(napis[i])+l)
                     else
                     napis[i]:=chr(ord(napis[i])+l-255);

              end;
              writeln;
              writeln('Zaszyfrowany napis to: ', napis);
         end;

       2:begin
              for i:=1 to dl do
              begin
                     //(deszyfracja)warunki sprawdzające czy wyszlismy poza zakres tablicy ASCII oraz instrukcje dla nich

                     if (ord(napis[i])-l >=1) then
                     napis[i]:=chr(ord(napis[i])- l)
                     else
                     napis[i]:=chr(ord(napis[i])-l+255);
              end;
              writeln;
              writeln('Odszyfrowany napis to: ', napis);
         end;
  end;

  writeln;
  writeln('Czy chcesz zapisac plik wynikowy?');
  writeln('1: TAK');
  writeln('2: NIE');
  readln(b);


  case b of
       1:begin
              //instrukcja pozwalajaca na utworzenie nowego pliku wynikowego

              write('Podaj nazwe nowego pliku: ');
              readln(nazwa2);
              assign(plik2,nazwa2+roz);
              rewrite(plik2);
              writeln(plik2, napis);
              close(plik2);
              writeln('Zapisano plik o nazwie ', nazwa2+roz);
         end;
       2:begin
              close(plik);
         end;
  end;

  end

  else
  begin
  writeln;
  writeln('Nie ma takiego pliku');
  end;




writeln('Nacisnij enter aby zakonczyc...');
readln();
end.