Delphi - обработка двумерного массива

[dm.os.]

Здравствуйте, уважаемые программисты!
Я нуждаюсь в вашей помощи, а именно мне необходимо сделать свою первую задачку с помощью объектно-ориентированной методики на Delphi.

Условие. Задан двумерный массив, содержащий N строк и M столбцов. Увеличить все элементы строки с максимальной суммой элементов на среднее арифметическое положительных элементов.
(В программе должно быть не менее двух классов, связанных отношением наследования. Использование формальных параметров в методах должно быть сведено к минимуму. Массивы динамические с инициализацией в конструкторе.)

Я составил программу, реализующую эту задачу, на Паскале, она вроде бы корректно работает.

const m=4; n=3;

var i, j, kol, nomstr : integer;
    sum, maxsumstr, sredn : real;
    A : array [1..n, 1..m] of real;
    SumStr : array [1..n] of real;

begin

  for i:=1 to n do
  for j:=1 to m do
    begin
      write('A[',i,',',j,']=');
      readln(A[i,j]);
    end;

  sum:=0; kol:=0; maxsumstr:=-10000000;

  for i:=1 to n do
    begin
      sumstr[i]:=0;
      for j:=1 to m do
        begin
          if A[i,j]>0 then
            begin
              sum:=sum+A[i,j];
              kol:=kol+1;
            end;
          sumstr[i]:=sumstr[i]+A[i,j];
        end;
      if sumstr[i]>maxsumstr then
        begin
          maxsumstr:=sumstr[i];
          nomstr:=i;
        end;
    end;

  sredn:=sum/kol;
  i:=nomstr;
  for j:=1 to m do A[i,j]:=A[i,j]+sredn;

  for i:=1 to n do
  for j:=1 to m do
    begin
      write('A[',i,',',j,']=');
      writeln(A[i,j]);
    end;

readln;
end.

Если у кого-то есть возможность, пожалуйста, подскажите, как правильно решить эту задачу с помощью ООП на Delphi.

Заранее благодарю за помощь.

[alexBlack]

Скажем, так: первый класс - просто реализация двумерного массива

type
   TArray = class
   private
      function getItem(x, y:integer):integer;
      procedure setItem(x, y, value:integer);
   public
      // Констрактор, создающий массив с указанным размером
      constructor Create(N, M:integer);

      // Соответственно, нужно возвращать размеры массива
      function sizeX : integer;
      function sizeY : integer;

      // Свойство для получения элемента массива
      property Item[x, y:integer] : integer read GetItem write SetItem; default;

      // Запрос данных массива (можно оставить консольный ввод)
      procedure ReadArray;
      // Можно еще сделать из файла
      procedure ReadFromFile(fileName:string);

      // Вывод данных
      procedure WriteArray;
      // Можно сделать и в файл
      procedure WriteToFile(filename:String);
   end;

Второй класс - конкретный для нашей задачи:

   TMyArray = class(TArray)
   protected
      // Возвращает среднее арифметическое положительных элементов
      function getAverageP : integer;
      // Возвращает сумму строки y
      function getSummLine(y:integer):integer;
      // Возвращает номер строки с максимальной суммой
      function getMaxSummLine : integer;
   public
      // Замена элементов строки с максимальной суммой на среднеарифметическое
      procedure ChangeToAverage;
   end;

Решение самой задачи:

var A:TMyArray;
begin
   A := TArray.Create(10, 10);
   A.ReadArray;
   A.ChangeToAverage;
   A.WriteArray;

Это на правах подсказки. Надеюсь смысл понятен. Реализация за Вами.