Сформировать матрицу в Паскаль

[Женька Good]

Необходимо сформировать матрицу 5*7 (5 строк *7 столбцов), числа в матрице должны быть от -77 до 77. Результат должно выдать в виде матрицы.

Вот то что я смог сделать:

Program mas;
Uses Crt;
Type mas=array[1..m,1..n] of real;
Var a:mas;
    i,j,n,m:Integer;
Begin
CLRSCR;
Write(' vvodim kol-vo strok==>');Readln(n);
Write('vvodim kol-vo stolbcov==>');Readln(m);
Randomize;
For i:=1 to m do
  For j:=1 to n do;
   read (a[i,j]); Random(20);
For i:=1 to m do begin
   for j:=1 to n do
     write(a[i,j]:5);
     Writeln;
End;
Readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) паскаль не позволит Вам описать тип массива с неизвестными ему значениями N и M
но Вам это и не нужно! У Вас же число строк и столбцов задано жёстко прямо в условии задачи!
надо так:

const m =5; n=7;
Type mas=array[1..m,1..n] of real;
Var a : mas;
    i,j  : Integer;

2) вводить число строк и столбов не нужно. оно у вас задано в коде.

3) Вы уж определитесь, или Вы даёте пользователю вводить числа. И тогда максимум, что можете сделать, это контролировать, чтобы он вводил в нужном диапазоне.
или задавайте через генератор случайных чисел (Random) - но тогда это надо запоминать. строчка Random(20); - АБСОЛЮТНО бессмыслена. со всех точек зрения.

если хотите заполнить случайными числами, то это можно сделать так:

Randomize;
For i:=1 to m do
  For j:=1 to n do;
    a[i,j] := Random(155) - 77 ;