Матрица Опции

[Richard]

Прошу помощи в решение простой задачи. Раньше вообще не имел дел с матрицами и масивами.
Задача: Задана матрица S(25,8). Вывести исходные данные в первые 24 строки и первые 7 столбцов. Вычислить среднее арифметческое значение элементов каждой строки и записать его в 8-ой столбец, а также среднее среденее арифметическое каждого столбца и записать его в 25-ю строку.

[Richard]

Вот новая версия программы

program proga1;

uses
  crt;

var
  i,k: integer;
  sum: real;
  mas: array[1..25,1..8] of real;

begin
  clrscr;
  sum := 0;
  randomize;
  for k := 1 to 7 do
    begin
      for i := 1 to 24 do
        begin
          mas[i,k] := random(10);
          sum := sum + mas[i,k];
        end;
      mas[25,k] := sum/24;
      sum := 0;
    end;

  sum := 0;

  for i := 1 to 24 do
    begin
     for k := 1 to 7 do
        begin
          sum := sum + mas[i,k];
        end;
      mas[i,8] := sum/7;
      sum := 0;
    end;


  for k := 1 to 8 do
    begin
     writeln;
     for i := 1 to 25 do
       write(mas[i,k]1);
    end;

  readln;

end.

Осталось только поменять стобцы со строками, но у меня никак не получается.