Создать двумерный массив. Pascal

var i, j, n: integer;
a: array [1..100,1..100] of integer;
begin
n:=5;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=2*i+5*j;
write (a[i,j]:4);
end;
writeln;
end;
end.

program massiv;
uses crt;
type matr= array[1..100,1..100] of integer;
procedure vvod(var c:matr; n,m:integer); //---------------------------------
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
c[i,j]:=2*i+5*j;
end; //----------------------------------------------------
procedure vivod( c:matr; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do
write(c[i,j]:3);
writeln; end;
end; //-------------------------------------------------
var
i,j,n,m:integer;
a:matr;
BEGIN
randomize;
clrscr;
writeln('Zadacha na massiv ');
writeln('---------------------------');
writeln;
write('Vvesti N and M: ');
readln(n,m);
writeln('Massiv A: ');
{ for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(101);
write(a[i,j]:3);
end;
writeln; end; }
vvod(a,n,m);
vivod(a,n,m);
end.

7 12 17 22 27 32 37 42 47 52
9 14 19 24 29 34 39 44 49 54
11 16 21 26 31 36 41 46 51 56
13 18 23 28 33 38 43 48 53 58
15 20 25 30 35 40 45 50 55 60
17 22 27 32 37 42 47 52 57 62
19 24 29 34 39 44 49 54 59 64
21 26 31 36 41 46 51 56 61 66
23 28 33 38 43 48 53 58 63 68
25 30 35 40 45 50 55 60 65 70