в одному полі бази данних можуть зберігатися дані тільки одного типу . погоджуюсь чи не погоджуюсь даю максимальную оценку​

uses crt;

const Max=100;

var Matrix:array[1..Max,1..Max] of integer;

   i,j,Sum1,Sum2,m:integer;

begin

 clrscr;

 randomize;

 repeat

   writeln('Введите размерность квадратной матрицы ');

   readln(m);

 until m in [1..Max];

 for i:=1 to m do

   for j:=1 to m do

     Matrix[i,j]:=random(25);//при необходимости замените на ручной ввод

 for i:=1 to m do

   begin

     for j:=1 to m do

       write(Matrix[i,j]:4);

       writeln;

   end;

 Sum1:=0; Sum2:=0;

 for i:=1 to m do

   begin

     Sum1:=Sum1+Matrix[i,i];

     Sum2:=Sum2+Matrix[m-i+1,i];

   end;

 writeln('Сумма элементов главной диагонали:',Sum1);

 writeln('Сумма элементов побочной диагонали:',Sum2);

 readln;

end.

Объяснение:

       На доске по строчечке 
Разместились кнопочки 
Догадайтесь мальчики 
Как здесь тыкать пальчиком? (Клавиатура) 

Нет, она – не пианино, 
только клавиш в ней – не счесть! 
Алфавита там картина, 
знаки, цифры тоже есть. 
Очень тонкая натура. 
Имя ей ...(Клавиатура). 

То-то радость, то-то смех 
На бумаге, без огрех, 
Из какой коробки лезет 
Текст на удивленье всех? 
(Принтер) 

По ковру зверек бежит, 
То замрет, то закружит, 
Коврика не покидает, 
Что за зверь, кто угадает? 
(Мышка) 

Не зверушка, не летаешь, 
а по коврику скользишь 
и курсором управляешь. 
Ты – компьютерная...(Мышь). 

Чудо-юдо чемодан 
Лампа, кнопка да карман. 
Он окутан проводами 
Словно город Амстердам. 
(Системный блок)