Pomocný generator hodnot

program GeneratorCisel;
var max:integer;
var cislo:integer;
var pocet:integer;
var jmenoSouboru:string;
var soubor:text;
var i:integer;


begin
max:=1;
pocet:=1;
cislo:=1;
jmenosouboru:='sexyFile.txt';
writeln('Zadej maximalni hodnotu: ');
readln(max);
writeln('-------------------------');
writeln('Zadej pocet pozadaovanych hodnot: ');
readln(pocet);
writeln('----------------------------------');
writeln('Zadej vystupni soubor: ');
readln(jmenoSouboru);
writeln('-----------------------');
Assign(soubor, jmenoSouboru);
Rewrite(soubor);
randomize;   {inicializace generatoru nahodnych cisel}
for i:=0 to pocet do
begin
     cislo:=random(max);
     write(soubor, cislo);
     write(soubor, ' ');
     writeln(cislo);
end;
close(soubor);
readln;
end.