[эмф]

Здравствуйте!
вот такой вопрос.
на форме мемо и кнопка,
при нажатие на кнопку, мемо заполнятеся пятью числами, по строчкам, которые не должны быть равны нули и между собой.
вот, что я смог :

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
mass:array[1..5] of integer;  //задал масив
i,j:integer;
s:string;
a,b:integer;
begin
memo1.Clear;
  Randomize;
   for i:=1 to 5 do
    begin
    a:=random(6);
     mass[i]:=a;        // заполнил рандомными числами
     while mass[i]=0 do  //сделал пересчёт, если появляется 0
         begin
       mass[i]:=random(6);
         end;
     end;

   for j:=1 to 5 do     //тут я пытаюсь пройтись по уже заполненому масиву
  begin
 while mass[j]=mass[j+1] do //пересчёт пока j-тый элемет масива равен j+1
           begin
       mass[j]:=random(6);
           end;
           memo1.Lines.Add(inttostr(mass[j])); // заполняем мемо
    end;
end;

у меня не получается пройтись по заполненому масиву, сравнив числа в нём между собой и повторную пересчитать. укажите пожайлуста мне на мои ошибки и что я не так понимаю !)
п.с.
извените, если оформел не по форме.