Помогите ввести матрицу...!, задачау знаю как делать, а вот как ввести такую матрицу? Опции

[sanek]

Задана квадратная матрица A вещественных чисел размера NxN(т.е 20 на 20)(n<=20, задается как параметр). Построить по ней матрицу B такого же размера
НЕ понимаю как ввести матрицу А ну и Б по ней...

[sanek]

program upr;
uses crt;
const n=4;
type mas=array[1..20,1..20] of integer;
var a,b,c:mas;i,j:integer;
for i:=1 to n do begin
for j:=1 to n do begin
write('a[',i,','j,']=');
read(a[i,j]);
gotoxy(j*10,i);end;end;
вот вроде так?