ileNieMaKontaNaF

program spra;
uses crt;
type
byli = record
nick,nickPam : string;
byl : byte;
param : string;
end;
var
t1,t2,t3 : text;
s1 : array [1..100] of byli;
s2 : array [1..100] of byli;
i,j,w,f,wys,n : byte;
begin clrscr;
assign(t1,'listaW.txt');
reset(t1);
i:=0;
REPEAT
i:=i+1;
readln(t1,s1[i].nickPam);
s1[i].nick:=lowercase(s1[i].nickPam);
UNTIL eof(t1);
close(t1);
assign(t2,'listaF.txt');
reset(t2);
w:=i;
i:=0;
REPEAT
i:=i+1;
readln(t2,s2[i].nickPam);
s2[i].nick:=lowercase(s2[i].nickPam);
UNTIL eof(t2);
close(t2);
f:=i;
for i:=1 to w do begin
    for j:=1 to f do begin
        if s1[i].nick=s2[j].nick then begin
           s1[i].byl:=1;s2[j].byl:=1;break;
        end;
    end;
end;
assign(t3,'zes.txt');
rewrite(t3);
n:=0;
for i:=1 to w do begin
    if s1[i].byl=0 then begin n:=1;break;end;
end;
if n=1 then begin
wys:=0;
writeln(t3,'Nie maja konta:');
for i:=1 to w do begin
    if s1[i].byl<>1 then begin
    wys:=wys+1;write(t3,wys);write(t3,'. ');
    writeln(t3,s1[i].nickPam);
    end;
end;
end;
n:=0;
for i:=1 to w do begin
    if (s2[i].byl=0)AND(s2[i].nick<>'') then begin n:=1;break;end;
end;
if n=1 then begin
wys:=0;
writeln(t3,'Nie sa juz w klanie, a maja konto:');
for i:=1 to w do begin
    if (s2[i].byl<>1)AND(s2[i].nick<>'') then begin
    wys:=wys+1;write(t3,wys);write(t3,'. ');
    writeln(t3,s2[i].nickPam);
    end;
end;
end;
close(t3);end.