Помогите решить задачу, please!

[CRUMB]

Составить программу на Pascal, содержащую:
-объект ДВУМЕРНЫЙ МАССИВ со следующими методами работы с ним:
1. Создание (параметры - количество строк и столбцов)
2. Вывод на экран
3. Вывод в числовой файл (параметры - имя рабочего файла)
-объект ОБРАБОТКА МАССИВА как потомок предыдущего сос следующими методами обработки:
1. Определить, сколько пар соседних одинаковых элементов в двумерном массиве (элементы являются соседними, если их индексы различаэтся на единицу, как по столбцам, так и по строкам).
2. Заменить все элемнеты столбцов, в которых есть ровно 1 четный элемент, значением этого элемента.
Первый метод применить к массиву А, второй к массиву В. Вывести оба массива на экран и в файл.
Результаты работы программы вывести на экран.
Реализовать объекты в виде отдельного модуля.

[DannerDOS]

ОООооо... Как с колледжа приду вечерком так сразу же помогу!!!

[DannerDOS]

Задачка плевая...

[DannerDOS]

}{ай! -
А вот и код (Условие фик понять - , один рас прочитал приблизительно прикинул - ) :::

Program DannerDOS_of_matrix;
Uses crt;
Var matrix:array[1..m, 1..n] of Integer;
      i, j:Integer;
      fail_in, fail_out:text;
       function par(Var m, n:Integer) of Integer;
       Begin
       For i:=1 to m do
       For j:=1 to n do Begin If fun[i, m] = fun[j, n] Then Begin Writeln('Количество попарно одинаковых чисел равно = ',fun[i, j]); end;
       end;
       Function zam(Var n, m:Integer);
       Begin
       For j:=1 to n do Begin If j:=2n Then Begin zam[m, j]:=fun[i, j];
       end;
       end;
Begin
{Последующие две строки исполняют импортирование файла из указанного места}
{assign(fail_in, '{Здесь указываем путь файла, Например:} D:\fail.txt');}
{reset(fail_in);}
Write('Введите количество строк -> '); Readln(m);
Write('Введите количество столбцов -> '); Readln(n);
Writeln('Введите значения матрицы ::: '); Readln(matrix[m, n]);
{Здесь можно вывести нашу функцию или же занести ее на цифровой файл}
Writeln('Так первая матрица для первого задания ::: ',par);
Write('Так вторая матрица для второго задания ::: ',zam);
readln;
readln;
End.

мммДа... Ошибок пално, извеняюсь Паскаль понимногу забывать стал ну впринцепе если у вас есть хоть малейшие знания в данной среде - думаю разберетесь!