Олимпиадная задача. Сформировать файл

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

Входящий файл
4
Mario
Nensi
Gig
Joss
2
Joss
Nensi
Выходной файл:
Mario
Gig

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