Мои функции и процедуры на Паскале

[Dmit41683]

Пожалуйста помигите! Я написал на Паскале процедуру, которая генерирует любое число в заданном диапазоне! Но она работает только один раз в программе! Всё хорошо, и диапазон соблюдается, и число каждый раз новое. Однако если в одной программе для одного диапазона я два или более раз использую мою процедуру, то число будет одно и тоже!
Вот моя программа:


unit Work;
interface
uses Crt;
procedure Clean_Str(y1,y2:integer);
function RandomInteger(grun1,grun2:integer): integer;
function RandomLongInt(grun1,grun2:longint): longint;
implementation
{’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’}
procedure Clean_Str(y1,y2:integer);
const cleaner=' ';
begin
for y1:=y1 to y2 do begin gotoXY(1,y1); write(cleaner); end;
end;
{’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’}
function RandomInteger(grun1,grun2:integer): integer;
var RandomInteger_prom,diapazon:integer ;
begin
randomize;
if grun1>=grun2 then
RandomInteger:=grun1;
if grun1<grun2 then
begin
inc(grun2);
diapazon:=grun2-grun1;
RandomInteger_prom:=random(diapazon );
RandomInteger:=RandomInteger_prom+g run1;
end;
end;
{’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’}
function RandomLongint(grun1,grun2:longint): longint;
var RandomLongInt_prom,diapazon:integer ;
begin
randomize;
if grun1>=grun2 then
RandomLongInt:=grun1;
if grun1<grun2 then
begin
inc(grun2);
diapazon:=grun2-grun1;
RandomLongInt_prom:=random(diapazon );
RandomLongInt:=RandomLongInt_prom+g run1;
end;
end;
{’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ’’’’’’’’’’’’’’}
end.

[evg_m]

читаем help randomize, смотрим там же пример и анализируем свою программу.

Description

Randomize initializes the built-in random number generator with a random value (obtained from the system clock). The random number generator should be initialized by making a call to Randomize, or by assigning a value to RandSeed.

Do not combine the call to Randomize in a loop with calls to the Random function. Typically, Randomize is called only once, before all calls to Random.