Определить максимальную сумму квадратов заданного размера в исходном файле

[ulaza]

Дан текстовый файл, состоящий следующих элементов: значение в первой строке определяет кол-во строк в массиве (не менее 3), Во второй строке чистло определяет кол-во столбцов в массиве(не менее 3).
Далее следуют элементы массива (в каждой строке расположены соответствующие элементы массива).
в последней строке файла стоит значение, определяющее кол-во строк и столбцов квадрата.
О пределить максимальную суммы квадратов заданного размера в исходном массиве.

[Stilet]

максимальную суммы квадратов

Поясни, каких квадратов.

Вообще программа может выглядеть так:

MODULE file1;
IMPORT
 TextViews,TextModels,Files,TextMappers,
 Views,StdLog,Converters;
VAR
 l:Files.Locator;
 v:Views.View;
 scan:TextMappers.Scanner; 
 m:TextModels.Model;

PROCEDURE do*;
VAR 
 max,q,w,i,e:INTEGER;s:ARRAY(255) OF CHAR;
 conv:Converters.Converter;
 fn:Files.Name;
BEGIN
 StdLog.Clear;
 l:=Files.dir.This('c:\temp\');
 fn:='1.txt';
 v:=Views.Old(FALSE,l,fn,conv);
 ASSERT(v#NIL,11);
 m:=v(TextViews.View).ThisModel();
 scan.ConnectTo(m);
 scan.type:=TextMappers.int;
 e:=scan.rider.Base().Length();
 scan.Scan();

 q:=scan.int;
 StdLog.String("Столбцов");StdLog.Tab;
  StdLog.Int(q);StdLog.Ln;
 scan.Scan();

 w:=scan.int;
 StdLog.String("Строк");StdLog.Tab;
  StdLog.Int(w);StdLog.Ln;
 max:=-9999;
 WHILE q>1 DO
  FOR i:=0 TO w DO
   scan.Scan(); 
   IF scan.type=TextMappers.int THEN
    StdLog.Int(scan.int);StdLog.Tab;
    IF max<scan.int THEN max:=scan.int; END; 
   END;
  END; 
  StdLog.Ln; 
  DEC(q);
 END;
StdLog.String("Максимум");StdLog.Tab;
  StdLog.Int(max);StdLog.Ln;
END do;

END file1.

А результ так:

Столбцов 3
Строк 2
1 7 3
4 5 6
Максимум 7

Уточни шо за сумма такая.