Где ошибка?(строки,Паскаль)

[yr_4]

Задача:Дана последовательность-от 2 до 20 слов,в каждом от 2 до 8 букв,между словами-не менее одного пробела,в конце-точка.Напечатать слова,отличные от последнего слова и без повторяющихся букв.
Код:

uses crt;

uses crt;
const m=20;
      k=8;
var n,i,len,j,r,z,l:integer;
    s,s3,s4:string;
    s1:array [1..m] of string;
    s2:array [1..k] of string;
begin
clrscr;
writeln('Input line(2 to 20 word,1 to 8 letters,"." in end)');
readln(s);

while pos('  ',s)>0 do
delete(s,pos(' ',s),1);
n:=0;
i:=1;
while pos(' ',s)>0 do
begin
n:=n+1;
s3:=copy(s,1,pos(' ',s)-1);
s1[i]:=s3;
while pos('  ',s)>0 do
delete(s,pos(' ',s),1);
n:=0;
i:=1;
while pos(' ',s)>0 do
begin
n:=n+1;
s3:=copy(s,1,pos(' ',s)-1);
s1[i]:=s3;
inc(i);
delete(s,1,pos(' ',s));
end;
s:=copy(s,1,length(s)-1);
i:=i-1;
r:=1;
for j:=1 to i do
if s1[j]<>s then
begin
len:=length(s1[j]);
while len>1 do
begin
s2[r]:=copy(s1[j],1,1);
delete(s1[j],1,1);
len:=length(s1[j]);
inc(r);
end;

r:=r-1;

for z:=1 to r do
begin
s2[z]:=s2[r];
for l:=1 to r do
begin
s2[l]:=s2[r];
if s2[z]<>s2[l] then
write(s1[j]);
end;
end;
end;
readln
end.