Дана матрица С.Найти наибольший элемент матрицы С и сумму квадратов ее элементов

program ABC;
const
Nmass=10;
type
T2m=array[1..Nmass,1..Nmass] of real;
var
C:T2m;
i,j,N,M:byte;
max,S:real;
BEGIN


//вывод двумерного массива
write('введите число строк N=');
readLn(N);
write('введите число столбцов M=');
readLn(M);
writeLn('вводите массив C');
for i:=1 to N do
for j:=1 to M do
begin
write('C[',i,',',j,']=');
readLn(C[i,j]);

end;

//вывод двумерного массива
writeLn('Выводим двумерный массив C');
for i:=1 to N do
begin
for j:=1 to M do
write(C[i,j]:7:2);
writeLn;
end;

//поиск наибольшего элемента
max:=C[1,1];
for i:=1 to N do
for j:=1 to M do
if C[i,j]>max then
max:=C[i,j];
writeln('max=',max:7:2);

//подсчет суммы квадратов элементов массива
S:=0;
for i:=1 to N do
for j:=1 to M do
S:=S+sqr(C[i,j]);
writeln('S=',S:7:2);

END.

0.36 -15.60 13.80
-1.10 2.40 1.61
0.00 -3.00 16.20
4.10 5.40 3.90 сама матрица.как ее сделать с файлом?никак не пойму