program sorto1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Console, DateUtils;
type  typ_rok = ^integer;
type  typ_bate = ^byte;
type sortowanie=^sort;
  sort = record
  d: tdatetime;
  co:ansistring;
  nast:sortowanie
  end;
var
mie,dzi,god,rok,min: typ_rok;
liczba, popr_wart:integer;
wyjscie,nazwa,godzina,czas,aktdata: String;
plik:text;
zdarzenie:ansistring;
today: TDateTime;
napis:char;

glowa,temp1,temp2:sortowanie;
obecny,nowy:text;
s,ns,wy,s1,ns1,wy1:string;
i,n,l,ln:integer;



begin
  repeat
  writeln('Wprowadz nazwe pliku, np. terminarz.txt.');
  readln(nazwa);
  if fileexists(nazwa)=true then
  begin
      clrscr;
      writeln('Wybrano plik ',nazwa,'.');
      popr_wart:=1;
  end
  else
  begin
      clrscr;
      writeln('Plik o nazwie ', nazwa,' nie istnieje. Wpisz ponownie.');
  end;
  until popr_wart=1;


  //----------------------------------//


  popr_wart:=0;
  i:=1;
  assign(nowy, 'cache.txt');
  rewrite(nowy);
  assign(obecny,nazwa);
  reset(obecny);
  writeln(nowy,'elo,elo');
  l:=0;
  repeat
    begin                  //liczy linijki
      l:=l+1;
      readln(obecny,s);
      writeln(s);
      read;
    end;
  until eof(obecny);
  writeln(l);
  readln;
  close(obecny);
  assign(obecny,nazwa);
  reset(obecny);
  readln(obecny, s);    //pierwszy element
  begin
    while s[i]<>'|' do
      begin                    //data
        ns:=ns+s[i];
        i:=i+1;
        writeln(ns);
        readln;
      end;
    while i <> length(s) do
      begin                     //tekst
        wy:=wy+s[i];
        i:=i+1;
      end;
  end;
  writeln(wy);
  writeln(ns);
  readln;
  writeln('koniec');      //koniec pierwszego elementu
  assign(plik,'yoyoyo.txt');
  rewrite(plik);
  write(plik,'elo');
  begin
  repeat
    begin
      ns1:='';
      wy1:='';
      i:=1;
      readln(obecny, s1);
    while s1[i]<>'|' do       //kolejny element
      begin
        ns1:=ns1+s1[i];         //data elementu
        i:=i+1;
        writeln(ns1);
        readln;
      end;
    while i <> length(s) do     //wydarzenie elementu
      begin
        wy1:=wy1+s1[i];
        i:=i+1;
      end;
    writeln(wy1);
    writeln(ns1);
    readln;
    writeln('koniec elementu');                       //koniec drugiego elementu
    l:=l-1;
    writeln(l);
    if strtodatetime(ns) > strtodatetime(ns1) then
    begin
      writeln(nowy,ns1,wy1);
      writeln('zamian');
    end
    else
    begin
      writeln(nowy,ns,wy);
      writeln('bez zminay');
    end;
    end;
    until l=0;
    end;
    writeln('koniec');
    readln;
    close(obecny);
    close(nowy);
    close(plik);
end.