[Pascal] Sprawdzenie liczb pętlą for

[Edzio94]

Witam. Mam problem i nie moge za nic zrobic pętli sprawdzającej (do totolotka).
Np w jednej pętli for mają być dane wchodzące od użytkownika, a druga pętla ma za zadanie sprawdzenie, czy takiej liczby już nie było, jeśli była, ma ją powtórzyc jeszcze raz.

Tu mam mały kodzik może się przyda

Kod: [Zaznacz]

for i:= 1 to 6 do
begin
read(a);
tab[i]:= a;
for j := 1 to i do
begin
if tab[i-1]=tab[j] then
begin
write(tab[i-1] then(?) tab[j]);
read a;
tab [j]:=a;
end;
end;
end;