Witam, mam problem z takim oto kodem, program działa ale gdy dochodzi do przed ostatniej linijki zamiast ją wykonać i czekać na klawisz enter kończy sam swoje działanie. Gdy używam statycznej tablicy wszystko działa. Gdzie jest błąd ?
program tabklica;
{$APPTYPE CONSOLE}
uses
SysUtils;
var tablica: array of array of Integer;
n, m, i, k: Integer;
begin
write('Podaj ilosc wierszy: ');
readln(n);
write('Podaj ilosc kolumn: ');
readln(m);
SetLength(Tablica, n,m);
for i := 0 to n do
begin
Randomize;
for k := 0 to m do begin
tablica[i][k]:= Random(1000);
writeln(tablica[i][k], ' ');
end;
writeln('');
end;
readln;
end.