Двумерный массив

[Daemon88]

Помогите плз с заполнением матрицы случайными числами и размерностью, вводимой с клавиатуры. Наброски есть, при компилировании пишет ошибки

Program mas;
Var i,k,n,m: integer;
a: array [1..n,1..m] of integer;
begin
randomize;
writeln (‘Zapolnenie massiva. Vvedite chislo strok’);
readln (n);
writeln (‘Vvedite  chislo stolbtsov’);
readln (m);
for i:= 1 to n do
for k:=1 to m do
begin 
a[i,k]:= random (100)+1;
write (a[i,k],’ ’‘);
end;
readln();
end.

[rus12]

можно так

const
n=10;
m=10;
Var i,k: integer;
a: array [1..n,1..m] of integer;
begin
randomize;
for i:= 1 to n do
for k:=1 to m do
a[i,k]:= random (100)+1;
 for i:= 1 to n do
begin
for k:=1 to m do
write (a[i,k],' ');
writeln(' ');
end;
readln;
end.

Для изменения размерности измени константы.

[Inquisitor]

Я и сам не очень опытен, но думаю больше 100х100 массив никому не нужен

Program mas;
 Var i,k,n,m: integer;
  a: array [1..100,1..100] of integer;
   begin
    randomize;
     writeln ('Zapolnenie massiva. Vvedite chislo strok');
      readln (n);
       writeln ('Vvedite chislo stolbtsov');
        readln (m);
         for i:=1 to n do
          for k:=1 to m do
          begin
            a[i,k]:= random (100)+1;

             write (a[i,k],' ');

                   end;
               readln;
                end.

[Sinapsik]

Сообщение от Inquisitor

Я и сам не очень опытен, но думаю больше 100х100 массив никому не нужен

В данном случае оставшиеся элементы массива будут с пустыми значениями,а не отсутствовать.
Предлагаю заменить на динамический двумерный массив

var
    a: array of array of integer;
    ....................................
begin
    ReadLn(n);
    ReadLn(m);
    setlength(a,n,m);
    .......................
end.

Как-то так

UPD:Простите,забыл что нет в паскале динамических массивов

[Stilet]

Предлагаю:

var i,j,k,l:integer;p:^integer;
begin
 write('Строк?');Readln(k);
 write('Колонок?');Readln(l); 
 GetMem(p,k*l);p:=0;
 for i:=1 to k do begin
  for j:=1 to l do begin
   p^:=random(100); inc(p);write(p^:5);
  end;writeln;
 end;readln;
end.