{$MODESWITCH ADVANCEDRECORDS}
Type TData = Record
Mail: String;
End;
Var File1, File2, OutputFile: Array of TData;
I, J : Integer;
Data : TData;
Begin
SetLength(File1, 4);
File1[0].Mail := 'jankowalski@gmail.com';
File1[1].Mail := 'jannowak@wp.pl';
File1[2].Mail := 'stachkowalski';
File1[3].Mail := 'iwona9@yahoo.com';
SetLength(File2, 2);
File2[0].Mail := 'jannowak@wp';
File2[1].Mail := 'iwona9@yahoo.com';
SetLength(OutputFile, 0);
For I := Low(File1) To High(File1) Do
For J := Low(File2) To High(File2) Do
if (File1[I].Mail <> File2[J].Mail) Then
Begin
SetLength(OutputFile, Length(OutputFile)+1);
OutputFile[High(OutputFile)] := File1[I];
End;
For Data in OutputFile Do
Writeln(Data.Mail);
End.
eyRNT0RFU1dJVENIIEFEVkFOQ0VEUkVDT1JEU30KVHlwZSBURGF0YSA9IFJlY29yZAogICAgICAgICAgICAgIE1haWw6IFN0cmluZzsKICAgICAgICAgICAgIEVuZDsKVmFyIEZpbGUxLCBGaWxlMiwgT3V0cHV0RmlsZTogQXJyYXkgb2YgVERhdGE7CiAgICBJLCBKICAgICAgICAgICAgICAgICAgICA6IEludGVnZXI7CiAgICBEYXRhICAgICAgICAgICAgICAgICAgICA6IFREYXRhOwpCZWdpbgogU2V0TGVuZ3RoKEZpbGUxLCA0KTsKIEZpbGUxWzBdLk1haWwgOj0gJ2phbmtvd2Fsc2tpQGdtYWlsLmNvbSc7CiBGaWxlMVsxXS5NYWlsIDo9ICdqYW5ub3dha0B3cC5wbCc7CiBGaWxlMVsyXS5NYWlsIDo9ICdzdGFjaGtvd2Fsc2tpJzsKIEZpbGUxWzNdLk1haWwgOj0gJ2l3b25hOUB5YWhvby5jb20nOwoKIFNldExlbmd0aChGaWxlMiwgMik7CiBGaWxlMlswXS5NYWlsIDo9ICdqYW5ub3dha0B3cCc7CiBGaWxlMlsxXS5NYWlsIDo9ICdpd29uYTlAeWFob28uY29tJzsKCiBTZXRMZW5ndGgoT3V0cHV0RmlsZSwgMCk7CiBGb3IgSSA6PSBMb3coRmlsZTEpIFRvIEhpZ2goRmlsZTEpIERvCiAgRm9yIEogOj0gTG93KEZpbGUyKSBUbyBIaWdoKEZpbGUyKSBEbwogICBpZiAoRmlsZTFbSV0uTWFpbCA8PiBGaWxlMltKXS5NYWlsKSBUaGVuCiAgIEJlZ2luCiAgICBTZXRMZW5ndGgoT3V0cHV0RmlsZSwgTGVuZ3RoKE91dHB1dEZpbGUpKzEpOwogICAgT3V0cHV0RmlsZVtIaWdoKE91dHB1dEZpbGUpXSA6PSBGaWxlMVtJXTsKICAgRW5kOwoKIEZvciBEYXRhIGluIE91dHB1dEZpbGUgRG8KICBXcml0ZWxuKERhdGEuTWFpbCk7CkVuZC4=