4.1a

program zad41;

var
  plik1:text;
  plik2:text;
  linia:String;
  i:integer;

begin
  Assign(plik1, 'F:\pascal\plik.txt');
  Assign(plik2, 'F:\pascal\plik2.txt');
  Reset(plik1);
  rewrite(plik2);
  while not eof(plik1) do begin
    Read(plik1, linia);
      for i := 1 to length(linia) do begin
    if ((linia[i]) >= 'A') and ((linia[i]) <= 'Z') then
      linia[i] := chr ( ord(linia[i]) + 32)
    else
    if ((linia[i]) >= 'a') and ((linia[i]) <= 'z') then
      linia[i] := upcase(linia[i]);
   write(plik2, linia[i]);
  end;
      end;

  Close(plik1);
  Close(plik2);
  readln();
end.