создание матриц паскаль

[Юля23]

Только начала изучение матриц в паскале и что то не очень получается их задавать...нужно такую создать матрицу А=|a ij |, где i изменяется от 0 до N-1, j - от 0 до N-1. Числа должны вводится случайным образом...
Вот что пока получилось:

var
i,j: integer;
a:array [1..n,1..m] of integer;
begin
randomize;
writeln('vvedite kollichestvo strok');
readln(n);
writeln('vvedite kollichestvo stolbcov';
readln(m);
for i:=1 to n do
    for j:=1 to m do
       begin
              write(' A[',i,j,']');
              readln (a[i,j]);

       end;
for i:=1 to n do
 begin
    for j:=1 to n do
      write (a[i,j]);
   writeln;
 end;
end.

Или может литературу какую посоветуете почитать...

[type_Oleg]

Выбирайте,или задать размер заранее, вот так

const  N=5;  // например
var i,j: integer;
    a:array [0..N-1,0..N-1] of integer; // в задании же так написано

Или использовать динамический массив,

var i,j,N: integer;
    a:array of array of integer;
begin 
// ...
 readln(N);
 SetLength(a,N,N);

И самое интересное - что значит " Числа должны вводится случайным образом... ?
Судя по коду, вы сами вводите вручную . Тогда зачем процедура randomize; ? Она нужна , если используется генератор случайных чисел Random, и данные получаются автоматически.

[Юля23]

"Тогда зачем процедура randomize; ? Она нужна , если используется генератор случайных чисел Random, и данные получаются автоматически."

так и должно быть...просто не понимаю, как эту процедуру вставить

[min@y™]

так и должно быть

так быть не должно.

[Stilet]

Так что ли?:

var
i,j: integer;
a:array [1..n,1..m] of integer;
begin
randomize;
writeln('vvedite kollichestvo strok');
readln(n);
writeln('vvedite kollichestvo stolbcov';
readln(m);
for i:=1 to n do
    for j:=1 to m do
       begin
              a[i,j]:=random(100);
              write(' A[',i,j,']');
       end;
readln;
end.

[Юля23]

const
n=100;
var
i,j: integer;
a:array [0..n-1,0..n-1] of integer;
begin
randomize;
writeln('vvedite kollichestvo strok');
readln(i);
writeln('vvedite kollichestvo stolbcov');
readln(j);
for i:=0 to n-1 do
    for j:=0 to n-1 do
       begin
              a[i,j]:=random(100);
       end;
readln;
end.

Почему матрица не выводится?

[newerow1989]

Почему матрица не выводится?

for i:=0 to n-1 do
begin
    for j:=0 to n-1 do
       begin
              a[i,j]:=random(100);
              Write(a[i,j],'  ');
       end;
   Writeln;
end;

[type_Oleg]

Сообщение от Юля23

... Почему матрица не выводится?

Угадайте с 2-х раз.
Потому что нет Write(a[i,j],' ');

[Юля23]

Все равно какая-то фигня выводится...

const
n=100;
var
i,j: integer;
a:array [0..n-1,0..n-1] of real;
begin
randomize;
writeln('vvedite kollichestvo strok');
readln(i);
writeln('vvedite kollichestvo stolbcov');
readln(j);
for i:=0 to n-1 do
    for j:=0 to n-1 do
    begin
    a[i , j]:=random(100);
    Write(a[i,j], ' ');
    end;
writeln;
end.

[newerow1989]

writeln('vvedite kollichestvo strok');
readln(n);//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
writeln('vvedite kollichestvo stolbcov');
readln(m);//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
for i:=0 to n-1 do
    for j:=0 to m{!!!!!!!!!!!!!!!!!!!!!!!!!!!}-1 do

переменные n, m!