Запись из файла в файл

[Atheist92]

uses crt;

var

 j,i,k,d,h,p:integer;

s:array[1..100] of string[12];

s1:array[1..100] of string[12];

f1,f2,f3:text;

Begin

assign(f1,'C:\Users\Public\Documents\file1.txt');

reset(f1);

assign(f2,'C:\Users\Public\Documents\file2.txt');

reset(f2);

assign(f3,'C:\Users\Public\Documents\file3.txt');

reset(f3);

k:=0;

while not eof(f1) do begin

k:=k+1;

readln(f1,s[k]);

end;

d:=0;

p:=0;

while not eof(f2) do begin

d:=d+1;

readln(f2,s1[d]);

end;

writeln(d);

h:=0;

append(f3);

for i:=1 to k do begin

 for j:=1 to d do

 begin

    if s[i]<>s1[j] then inc(h);

 end;

 if h=d then

 writeln(f3,s[i]);

 end;

close(f3);

close(f1);

close(f2);

end.

Есть два файла, в первом файле записани слова:
привет
пока
день
ночь
Во втором файле слова
улица
фонарь
радуга
день
привет
ужин

Третий файл должен получиться таким
пока
ночь

Но как я не бился так как надо не работает, подскажите как можно это реализовать.

А суть заключается в том что слова из первого файла необходимо сравнить со словами во втором и если слова из первого файла нет во втором записать его в третий.

[GetMax]

Если массивы использовать не обязательно, то пробуйте так

Var
  f1,f2,f3:Text;
  St,BufSt:String;
begin
  Assign(f1,'C:\1.txt');
  Assign(f2,'C:\2.txt');
  Assign(f3,'C:\3.txt');
  Reset(f1);
  Reset(f2);
  Rewrite(f3);
  st:='';
  While Not EOF(f1) do
  Begin
    Readln(F1,BufSt);
    St:=St+' '+BufSt
  End;
  While Not EOF(f2) do
  Begin
    Readln(F2,BufSt);
    If Pos(BufSt,St) > 0 then Writeln(f3,BufSt)
  End;
  Close(f1);
  Close(f2);
  Close(f3);
  Readln
End.

[Atheist92]

Спасибо большое это просто спасло меня