Много ! задано натуральные числа n и x. вывести на экран таблицу размером n на n, где на главной диагонали стоит число x, а на остальных местах *. пример: n=4, x=3. должно выйти так : 3 * * * * 3 * * * * 3 * * * * 3 язык pascal

Ввод матрицы в ручную
Const n = 5;
m = 5; {n-строка, m-столбец}
Var A: array [1..n, 1..m] of real;    
i, j: integer;
Begin  
for i := 1 to n do
for j := 1 to m do    
begin      
Write('A[', i, ', ', j, '] = ');      
ReadLn(A[i,j])    
end;  
WriteLn('Исходный массив:');  
for i := 1 to n do    
begin      
for j := 1 to m do
Write(A[i,j]:10:2);      
WriteLn     end;  
Writeln('Главная диагональ массива А:');  
for i :=1 to n do
Write(A[i, i]:10:2);  
WriteLn;  
ReadLn;
END.