Товарищи, напишите мне пожалуйста программу в которой я магу задавать размерность матрицы и вывеси ее на экран, буду признательна...

Немного не ясен вопрос, Вы задаёте размер матрицы и нужно заполнить её случайными числами? Или вы сами заполняете её?

напишите и для случайных чисел и для ручново ввода чисел

Случайное заполнение

var a:array [1..100,1..100] of integer;
    i,j,m,n:integer;
 begin
  writeln('Razmer matrici m*n');
  writeln('Vvedite m');
  readln(m);
  writeln('Vvedite n');
  readln(n);
  randomize;
  for i:=1 to m do for j:=1 to n do a[i,j]:=random(10);
  for i:=1 to m do begin for j:=1 to n do write(a[i,j],' '); writeln; end;
readln;
end.

Ручное

var a:array [1..100,1..100] of integer;
    i,j,m,n:integer;
 begin
  writeln('Razmer matrici m*n');
  writeln('Vvedite m');
  readln(m);
  writeln('Vvedite n');
  readln(n);
  writeln('VVedite elementi matrici');
  for i:=1 to m do for j:=1 to n do readln(a[i,j]);
  writeln('__________________________________________');
  for i:=1 to m do begin for j:=1 to n do write(a[i,j],' '); writeln; end;
readln;
end.

спасибо большое Freedom =** а когда я ввожу в элементы массива дробные числа он ошибку выдает

var a:array [1..100,1..100] of real;
    i,j,m,n:integer;
 begin
  writeln('Razmer matrici m*n');
  writeln('Vvedite m');
  readln(m);
  writeln('Vvedite n');
  readln(n);
  randomize;
  writeln('VVedite elementi matrici');
  for i:=1 to m do for j:=1 to n do readln(a[i,j]);
  writeln('__________________________________________');
  for i:=1 to m do begin for j:=1 to n do
 write(a[i,j] : 2 : 5,' '); writeln; end;
readln;
end.

Вот с дробными.

"Чего тебе надобно, старче?.." (С)
Freedom, ты хоть пару операторов не дописывай, что ли..
Не отбирай у людей эту бесценную возможность: подумать.. ))

Хорошо.