Proszę o pomoc na gwałt potrzebna
program program_drugi;
uses crt;
var q:array [1..5000] of integer;
i,j,k,los:integer;
BEGIN
randomize;
clrscr;
writeln('Moj generator');
repeat
i:=i+1;
q[i]:=random(6)-(0);
until (i=5000);
//
while j<5000 do
begin
j:=j+1;
repeat
i:=i+1;
if q[j]=q[i] then
begin
k:=1;
end;
until i=5000;
end;
//
writeln(k);
writeln('Generator Pascal');
for i:=1 to 5000 do
begin
los:=random(6)-(0);
write(los,' ');
end;
repeat until keypressed
END.
Gdzie problem?