cwSkladySort

program sortowanie;
uses crt,dos;
var c,cw1Il,cw2Il,d : byte;
tab2 : array[1..100,1..2] of string;
procedure cw(ktore : string;tabek : byte);
type
rek = record
m,pam : string;
end;
var
tab:array[1..100] of rek;
sch : rek;
i,ile:integer;
cw1 : text;
begin
assign(cw1,ktore);reset(cw1);
       c:=0;
       REPEAT
          c:=c+1;
          tab[c].m:='';tab[c].pam:='';
          readln(cw1,tab[c].pam);
          tab2[c,tabek]:=tab[c].pam;
          tab[c].m:=lowercase(tab[c].pam);
       UNTIL eof(cw1);
 ile:=c;
for c:=1 to ile-1 do
  for i:=1 to ile-c do begin
     if tab[i].m>tab[i+1].m then begin
        sch:=tab[i];tab[i]:=tab[i+1];tab[i+1]:=sch;
      end;
   end;
c:=0;
rewrite(cw1);
REPEAT
c:=c+1;
writeln(cw1,tab[c].pam);
UNTIL c=ile;
close(cw1);
end;
procedure zes;
var
t,p : text;
linia : string;
d,m,y,ty,h,mm,s,ms : word;
begin getDate(y,m,d,ty);getTime(h,mm,s,ms);
assign(t,'zes.txt');rewrite(t);
write(t,'Ostatnia modyfikacja: ',d,'.');
if m div 10=0 then write(t,'0',m,'.') ELSE write(t,m,'.');
write(t,y,'r. (',h,':');
if mm div 10=0 then write(t,'0',mm,':') ELSE write(t,mm,':');
if s div 10=0 then writeln(t,'0',s,')') ELSE writeln(t,s,')');
writeln(t,'**********************');
writeln(t,'1. GRUPA:');
assign(p,'cw1.txt');reset(p);
c:=0;
cw1Il:=0;
   REPEAT
      c:=c+1;
      readln(p,linia);
      cw1Il:=cw1Il+1;
      writeln(t,c,'. ',linia);
   UNTIL eof(p);
      writeln(t,'----------------------');
close(p);
writeln(t,'2. GRUPA:');
assign(p,'cw2.txt');reset(p);
c:=0;
cw2Il:=0;
   REPEAT
      c:=c+1;
      readln(p,linia);
      cw2Il:=cw2Il+1;
      writeln(t,c,'. ',linia);
   UNTIL eof(p);
close(p);
writeln(t,'~~~~~~~~~~~~~~');
write(t,'LĄCZNIE JEST NAS: ',cw1Il+cw2Il);
close(t);
end;
procedure sprD;
var c1,licz : byte;
tabD : array[1..100] of string;
begin licz:=0;
for c1:=1 to 100 do begin
    for c:=1 to 100 do begin
        if (tab2[c1,1]<>'')AND(tab2[c,2]<>'') then begin
           if tab2[c1,1]=tab2[c,2] then begin
              d:=1;
              licz:=licz+1;tabD[licz]:=tab2[c1,1];
           end;
        end;
    end;
end;
if d=1 then begin
   writeln('Oto lista duplikatow: ');
   for c:=1 to licz do begin
       writeln(c,'. ',tabD[c]);
   end;
readkey;end;
end;
begin clrscr;
d:=0;
if fSearch('cw1.txt','')<> '' then cw('cw1.txt',1) ELSE begin write('Plik cw1.txt nie istnieje');delay(3000);halt; end;
if fSearch('cw2.txt','')<> '' then cw('cw2.txt',2) ELSE begin write('Plik cw2.txt nie istnieje');delay(3000);halt; end;
sprD;
if d=0 then zes;
end.