Не соответствие типов, Файлы, Массивы Опции

[Student91]

Написать программу на языке Pascal, в которой выполнит следующие действия:
1. Описать переменную индексируемого типа(двухмерный масив).
2. Написать процедуру для заполнения данного массива значениями в соответствии с вариантом.
3. Создать новою переменную индексируемого типа (одномерный массив) и процедуру получеными в соответствии с вариантами задания;
4. Написать процедуру для преобразования элементов двумерного массива таким образом, что бы в главной программе имеет доступ к его первоначальному и конечному значению;


8x8
Значения одномерного массива состоят из суммы четных значений элементов столбцов двухмерного массива

Уменьшить значение всех елементов массива на среднее арифметическое значений элементов его побочной диагонали

Уловее замудреное мальохо(((

uses crt;
const
n = 8;
m = 8;
type
  typearray = array[1..n, 1..m] of real;
var
  arr: typearray;
  arr3: typearray;
  i, j,s,k: integer;
  arr1: array[1..n] of real;

procedure zapolnenieI;
begin
  for i := 1 to n do
    for j := 1 to m do
      arr[i, j] := (random(15) - 5);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(arr[i, j]:8:2);
    writeln;
  end;
end;

procedure zapolnenieII;
begin
  for i := 1 to n do
    arr1[i] := 1;
  for i := 1 to n do
    for j := 1 to m do
      if arr[i, j] mod 2 = 0 then arr1[i] := arr1[i] + arr[i, j];
  for i := 1 to n do write(arr1[i]
5, ' ');
  writeln;
end;
k:=0;
procedure SrednAriF;
begin
s:=0;
  for i := 1 to n do
    for j := 1 to m do
for i:=1 to n do
s:=s+x[i,n-i+1];
k:=k+1;
end;
s:= s/k;
procedure change;
begin

  for i := 1 to n do
    for j := 1 to m do
for i:=1 to n do

 arr3[i, j] := arr3[i, j] - s;
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(arr3[i, j]:8:2);
    writeln;
  end;
end;

begin
  clrscr;
  randomize;
  filing;
  arr3 := arr;
  zapolnenieII;
  change;
	end.