Удалить из второй строки те слова, которые есть в первой строке

[innaa639]

Ввести две строки символов. Удалить из второй строки те слова, которые есть в первой строке.

[Arigato]

Это простая задачка.
Разбейте первую строку на слова, получите массив слов.
Теперь остается только поудалять эти слова из 2-й строки и вывести ее на экран.

[alex_fcsm]

uses crt;
var s,s1,sub:string;
    i,j,m,n:integer;
    a,b:array[1..100] of string;
begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else sub:=sub+s[i];
until i=length(s);
inc(n);
a[n]:=sub;
writeln('Input Str2');
readln(s1);
i:=0;m:=0;sub:='';
repeat
inc(i);
if (s1[i]=' ') then begin
                   inc(m);
                   b[m]:=sub;
                   sub:='';
                   end
else sub:=sub+s1[i];
until i=length(s1);
inc(m);
b[m]:=sub;
for i:=1 to n do
 for j:=1 to m do
  if a[i]=b[j] then b[j]:='';
writeln;
for i:=1 to m do
 if b[i]<>'' then write(b[i],' ');
end.