Заменить каждый элемент матрицы его квадратом

program xxx;
 
const n=4;
const m=3;
 
type matrix = array [1..n,1..m] of integer;
 
var
    x:matrix;
    i,j:integer;
    
begin
    writeln('Заполните матрицу: ');
    for i:=1 to n do
        for j:=1 to m do
            begin
                write('x[',i,',',j,']= ');
                readln(x[i,j]);
            end;
    writeln('-----ИСХОДНАЯ МАТРИЦА-----');
    {вывод матрицы}
    for i:=1 to n do
        begin
            for j:=1 to m do
                write(x[i,j],' ');
                writeln();
        end;
    writeln('-----ПОСЛЕ ЗАМЕНЫ-----');
    {замена}
    for i:=1 to n do
        for j:=1 to m do
            x[i,j]:=sqr(x[i,j]);
    {замена + вывод}
    for i:=1 to n do
        begin
            for j:=1 to m do
                write(x[i,j],' ');
                writeln();
            end;
    readln;
end.