строки Опции

[OliGan]

Даны два предложения. Напечатать все слова, которые есть только в одном из их. помогите пожалуйста

program st;

type stroka=string[25];

var
s1,s2,dops,news1:stroka;
n,i,m,p,q:integer;

begin
	writeln('vvedite pervuyu stroku   ');
	readln(s1);
	writeln('vvedite vtoruyu stroku   ');
	readln(s2);
	q:=length(s1);
		while q <> 0 do begin
			n:=pos(' ',s1);
			dops:=copy(s1,1,n); // копирование слова в дополнительную строку
			m:=pos(dops,s2);
				if m<>0 then begin
					p:=length(dops);
					delete(s1,1,n);
					delete(s2,m,p);
					q:=length(s1);
				end
				else
				begin
					delete(s1,1,n);
					q:=length(s1);
					news1:=dops;
				end;
		end;
writeln(s2);
writeln(news1);
readln
end.