с программой Delphi. Требуется прочитать из текстового файла матрицу 7x7.
Мой код работает только с положительными элементами и нулём, но нужно, чтобы и отрицательные элементы выводились на форму.

В любой деятельности человек всегда придумывал и создавал самые разнообразные средства, при орудия труда. Все это облегчало труд, делало его производительнее, расширяло возможности людей. Известно, что история материального производства и мировой науки тесно связана с историей развития орудий труда.

Первые вс средства для работы с информацией появились много позже первых орудий материального труда. Историки утверждают, что расстояние во времени между появлением первых инструментов для физического труда (топор, ловушка для охоты) и инструментов для регистрации информационных образов (на камне, кости) составляет около миллиона лет!

Следовательно, почти 99% времени существования человека на Земле труд носил только материальный характер.

Уже говорилось о том, что информационную деятельность человека можно разделить на три составляющие: хранение, передачу и обработку. Долгое время средства информационного труда развивались отдельно по этим трем направлениям. 

Удачи!

//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.