Олимпиалная задача помогите

[lexus]

В первом рядке стандартного входящего файла задается целое число N(N<=10000) – количество возможных имен. В следующих рядках записаны сами имена, которые имеют только символы латинского алфавита и имеют длину не больше 20. Потом в новом рядке есть число К(K<=10000)-количество использованных имен. Дальше перечисление имен.

Выходные данные: в отдельных рядках выходного файла вывести имена, которые есть свободными для использования.

Пример:
Входящий файл
4
Mario
Nensi
Gig
Joss
2
Joss
Nensi

Выходной файл:
Mario
Gig


Задача нужна для Паскаля!!!!!

[mihali4]

А премия за решение задачи кому достанется?
Может, правильнее самому сделать, самому и награду получить.
А то как-то странно - вы работайте, а я за вас зарплату получать буду...

[Yogik™]

Это была шутка, или это серьезно олимпиадное задание??

[Abbatik]

program lab;
var f:text;
st2,st,st1:array[1..50] of string;
h,j,n,k,i:integer;
label 1;
begin
assign(f,'input.txt');
reset(f);
readln(f,n);
for i:=1 to n do begin
readln(f,st[i]);
end;
readln(f,k);
for i:=1 to k do begin
readln(f,st1[i]);
end;

for i:=1 to n do begin
for j:=1 to n do begin
if st[i]=st1[j] then goto 1;
end;
h:=h+1;
st2[h]:=st[i];
1:
end;
close(f);
assign(f,'output.txt');
rewrite(f);
for i:=1 to h do begin
writeln(f,st2[i]);
end;
close(f);
end.

Входящий создай сам в текущеий папке с именем input.txt.
Выходным будет Output.txt
Если что мой Yandex.money-41001179057639