Помогите кто любит динамику

[super-leon]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ModDd11_1, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Edit3: TEdit;
Button3: TButton;
Button4: TButton;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Type TSp=^sp;
sp=record
word1:string[30];
word2:string[30];
vsp:Tsp; end;


tST=^ST;
ST=record
word:string;
vst:tst;
next:tst;end;

var pch: tsp;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
CLOSE;
end;

procedure TForm1.Button1Click(Sender: TObject);
var q: tsp;

begin
new(q);
q^.word1:=Edit1.Text;
q^.word2:=Edit2.Text;
q^.vsp:=pch; pch:=q;
Edit1.Text:='';
Edit2.Text:='';
end;

procedure TForm1.Button2Click(Sender: TObject);
var q: tsp; n:integer; st1,st2:string;
begin
n:=0; st1:=''; st2:=''; q:=pch;
while q<> nil do
begin
n:=n+1;
st1:=st1+q^.word1+' ';
st2:=st2+q^.word2+' ';
q:=q^.vsp;
end;
if n<>0 then
begin
showmessage('L1= '+st1);

showmessage('L2= '+st2);
end;

end;

procedure TForm1.Button3Click(Sender: TObject);
var s,q2:tst; q1:tsp; b:string;

begin
new(q2);

if (q1^.word1<>q1^.word2) then
begin
q2^.word:=q1^.word1+' ';
q2^.vst:=s;
s:=q2;
end;

Edit3.Text:=q2.word+' ';
end;

end.

ПОМОГИТЕ

[Chudo4258]

Напишите формулировку задачи, а то по коду сложно разбираться что вы там решаете.

[super-leon]

5. Разработать программу, которая создает списки и , элементами которых являются слова из больших латинских букв. Находит все слова списка , которые не содержатся в , и выводит их, розділюючи пробелами, в обратном порядке к ним размещение