Составить программы формирования двумерного массива

решение на Turbo Pascal 7.0. Ссылка "my-files.ru/yuuktl"

uses crt;
var i, j, n, m: integer;
a: array [1..20, 1..20] of LongInt;
begin
clrscr;
randomize;
writeln (' Выберите способ заполнения массива:');
writeln (' 1 - вручную ...') ;
writeln (' 2 - автоматически ...');
readln (m);
n:=6;
case m of
1:begin
clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
textcolor(green);
gotoxy(i*6-3, j);
write ('(');
gotoxy( i*6, j);
write (')');
textcolor(white);
gotoxy(i*6-2, j);
read (a[i,j]);
while (a[i,j] <10) or (a[i,j]>50) do
begin
textcolor(green);
gotoxy(i*6-3, j);
write ('( )'); {2 пробела между скобками внутри}
gotoxy( i*6, j);
textcolor(white);
gotoxy(i*6-2, j);
read (a[i,j]);
end;
end;
writeln;
end;
end;
2: begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=11 + random (49);
end;
else begin write (' Вы выбрали неверно ...'); repeat until keypressed; exit; end;
end;
writeln (' сумма элементов: верхний правый и нижний левый =', a[1,n]+a[n,1]);
for j:=1 to n do
begin
for i:=1 to n do
write (a[i,j]:6);
writeln
end;
writeln;
for j:=1 to n do
begin
for i:=1 to n do
write (-a[i,j]:6);
writeln
end;
repeat until keypressed;
end.

вот создание массива
var
i,j,n,m:integer;
a:matr;
BEGIN
randomize;
clrscr;
writeln('решение задачи на массивы ');
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(61)+10;
write(a[i,j]:3);
end;
writeln; end;
end.

Хорошее задание. Мне нравится. Выполняйте.