Найти сумму первого и последнего столбца матрицы

//В массиве a[1..5,1..5], введенном с клавиатуры, найти сумму
//первого и последнего столбца. Затем выполнить следующие действия:
//1) Если сумма первого больше суммы последнего столбца,
//то найти минимальное число в массиве и удалить строку
//с этим элементом из массива.
//2) Если сумма первого меньше суммы последнего столбца,
//то рассортировать третий столбец методом выбора максимума в
//порядке возрастания.
//3) Если суммы столбцов равны,
//то все нечётные числа массива возвести в квадрат.
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
 Arr : array [1..5] of array [1..5] of word;
 i, j : word;
 Summ1, Summ5 : word;
 Min, MinStr : word;
 Max, MaxBuf : word;
begin
 //Начало программы
 WriteLn('To begin press Enter');
 ReadLn;
 //Заполнение массива
 Randomize;
 for i := 1 to 5 do
  for j := 1 to 5 do
   Arr[i, j] := Random(9);//Заполнение случайными до 25
 //Вывести на экран
 for i := 1 to 5 do
 begin
  for j := 1 to 5 do
   Write(' '+IntToStr(Arr[i, j]));
  WriteLn;
 end;
 WriteLn;
 //Продолжение программы
 WriteLn('To continue press Enter');
 ReadLn;
 //Найти сумму первого и последнего столбца
 Summ1 := 0;
 Summ5 := 0;
 for i := 1 to 5 do
 begin
  Summ1 := Summ1 + Arr[i, 1];
  Summ5 := Summ5 + Arr[i, 5];
 end;
 WriteLn(Summ1);
 WriteLn(Summ5);
 WriteLn;
 //Продолжение программы
 WriteLn('To continue press Enter');
 ReadLn;
//1) Если сумма первого больше суммы последнего столбца,
//то найти минимальное число в массиве и удалить строку
//с этим элементом из массива.
 Min := Arr[1,1];
 MinStr := 1;
 if Summ1 > Summ5 then
 begin
  //Найти манимум
  for i := 1 to 5 do
   for j := 1 to 5 do
    if Arr[i, j] < Min then
    begin
     Min := Arr[i, j];
     MinStr := i;
    end;
  //Удалить строку в статическом массиве невозможно
 end;
//2) Если сумма первого меньше суммы последнего столбца,
//то рассортировать третий столбец методом выбора максимума в
//порядке возрастания.
 if Summ1 < Summ5 then
 begin
  for i := 1 to 5 do
  begin
   Max := i;
   for j := i + 1 to 5 do
    if Arr[j, 3] > Arr[Max, 3] then
     Max := j;
   MaxBuf := Arr[i, 3];
   Arr[i, 3] := Arr[Max, 3];
   Arr[Max, 3] := MaxBuf;
  end;
 end;
//3) Если суммы столбцов равны,
//то все нечётные числа массива возвести в квадрат.
 if Summ1 = Summ5 then
 begin
  for i := 1 to 5 do
   for j := 1 to 5 do
    if Arr[i, j] mod 2 <> 0 then
     Arr[i, j] := Arr[i, j] * Arr[i, j];
 end;
 //Вывести на экран
 for i := 1 to 5 do
 begin
  for j := 1 to 5 do
   Write(' '+IntToStr(Arr[i, j]));
  WriteLn;
 end; 
//Конец программы
 WriteLn;
 //Продолжение программы
 WriteLn('To continue press Enter');
 ReadLn;
end.