Подскажите пожалуйста, что не так с этой задачей, почему не работает ?

Question

program stroka;
var
s, sub :string;
i,n,k,j:integer;
a:array[2..10] of string;
begin
writeln('vvedite ctroky');
readln(s);
i:=0;
n:=0;
repeat
inc(i);
if(s='')and (s[i+1]<>'') then
begin
n:=n+1;
a[n]:=sub;
sub:='';
end
else
if (s<>'')and(s<>'.')
then
sub:=sub+s;
until i=length(s);
if sub <>'' then
begin
until
i=length (s);
if sub<>''
then
begin
inc(n);
a[n]:=sub;
end;
writeln;
for i:=1 to n-1 do
if a<>a[n] then
begin
sub:='';
sub:=sub+a[j];
writeln;
readln;
end;
end.

Супер · Accepted Answer

В вопросах по коду должно быть: 
- что хочешь получить; 
- какой код написал (код желательно выкладывать на pastebin.com, а то ответы едят код) ; 
- что получается. 
Без этих трех пунктов ответ превращается в угадайку. 
Уточню: "ошибка" - это не "что получается". Опиши, в чем ошибка заключается (что выводит программа/компилятор).