Паскаль: Помогите пожалуйста выделать память с помощью new dispose я пытаюсь но у меня не получается. Вот исходный код:

[email protected] в категроии Информатика, вопрос открыт 24.08.2018 в 21:30

uses crt;
type mas=array[1..10,1..10] of integer;

procedure CreateArray(var n: integer; var m:integer; var k:mas);
var i,j:integer;
begin
randomize;
repeat
writeln('Введите размер матрицы');
readln(n);
readln(m);
until ((n>0)and(n<=10)) and ((m>0)and(m<=10));
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
k[i,j]:=random(25)+1;
write(k[i,j]:4);
end;
writeln;
end;
writeln;
end;

procedure OutputArray(n, m: integer; var k:mas);
var i,j:integer;
begin
writeln('После замены');
for i:=1 to n do
begin
for j:=1 to m do
begin
if i mod 2=0 then write('X':4)
else write(k[i,j]:4);
end;
writeln;
end;
readln
end;

var k:mas;
i,j,n,m:integer;
begin
clrscr;
CreateArray(n, m, k);
OutputArray(n, m, k);
end.