Matice

//Napiste program ktory vygeneruje maticu obsahujucu cele cisla.
//Matica ma R riadkov a S stlpcov
program matica;
{$APPTYPE CONSOLE}
uses SysUtils;
var c:array[1..255,1..255] of byte;
    i,j,r,s:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte pocet riadkov: ');
  readln(r);
  write('Zadajte pocet stlpcov: ');
  readln(s);
  randomize;
  for i:=1 to r do
    begin
      for j:=1 to s do
        begin
          c[i,j]:=random(100);
          write(c[i,j]:5);
        end;
      writeln;
    end;
  readln;
end.