Matice - generator – Delphi – Fórum – Programujte.com

ahoj, mam udelat skolni program, kde se pracuje s maticema, ale mam problem na zacatku. Kdyz generuji cisla, tak mi to hazi porad stejny cisla..... viz kod:

program Brum;

{$APPTYPE CONSOLE}

uses
SysUtils;
type pole = array[0..4,0..4] of integer;
Var
matice:pole;

procedure napl(Var m : pole);
Var
i,j : integer;
begin
for i := 0 to 5 - 1 do
begin
for j := 0 to 5 - 1 do
begin
m[i][j]:=1+random(9);
end;
end;
end;

procedure vypis(Var m : pole);
Var
i,j : integer;
begin
for i := 0 to 5 - 1 do
begin
for j := 0 to 5 - 1 do
begin
write(m[i][j],' ');
end;
writeln;
end;
end;

begin
napl(matice);
vypis(matice);
readln;
end.

Diky za pomoc.

Chybí ti tam Randomize (inicializace generátoru pseudonáhodných čísel), takže asi takhle:

procedure napl(Var m : pole);

var

  i, j: Integer;

begin

Randomize;

For i := 0 to  4 do

  begin

    for j := 0 to 4 do

      begin

        m[i,j]:=1+random(9);

      end;

  end;

end;

To Sniper : Boze........ a ja na to cumel asi 3/4 hodiny. Diky