Помогите пожалуйста с программой на паскале

[Severina]

Помогите пожалуйста с программой на паскале

Добрый вечер,
В очередной раз не могу разобраться с написанием программы на Паскале.
Помогите пожалуйста!


Задание на выполнение работы:
1) Сформировать двухмерный динамический массив арифметических данных с помощью указателя на одномерный массив из исходных данных, расположенных в текстовом файле; для формирования использовать: процедуру с параметром-переменной типа указателя на массив;
2)ввести из файла и вывести исходные данные;
3) обработать данные динамического массива с помощью процедуры с параметрами.

Исходные данные и сведения для обработки:

Дан двухмерный массив С из M строк и N столбцов.

а)сформировать трехмерный массив из всех положительных значений нечетных столбцов и их индексов в исходной матрице;
б)определить произведение отобранных элементов и их количество;
в)определить минимальное и максимальное значения из отобранных элементов и их координаты, и поменять местами строки исходной матрицы в которой они найдены, если номера строк разные.

 

[Severina]

Мои пробы на этот счет ( в обработке пыталась сделать только два первых пункта):

program pr1;
uses crt;
type mas=array[1..12] of real;
mas2=array[1..36] of real;
misx = ^mas;
msoz = ^mas2;
var c:misx;
z:msoz;
i1,i2, kol,i,j:integer;
m,n,imin,imax,jmin,jmax:integer;
u,mn,mx:real;
FI:text;
p:real;
{-----Vivod znachenii isxodnogo massiva-----}
procedure print(c:misx; m,n:integer);
begin
for i:= 1 to m do
begin
writeln;
for j:= 1 to n do
write(' ', c^[(i-1)*N+j]:8);
writeln;
end;
end;

{-----Formirovanie trexmernogo massiva, procedure #1-----}
procedure obr1(c:misx; var z:msoz; m,n:integer);
var i,j,k:integer;
begin
p:=1;
kol:=0;
For i:=1 to m do begin
for j:=1 to (n-1) do begin
if c^[(i-1)*n+(2*j+1)] > 0 then begin
z^[(i-1)*n+(j+1)]:=c^[(i-1)*n+(2*j)];
p:=p*z^[(i-1)*n+(j+1)];
kol:=kol+1;
writeln (z^[(i-1)*n+(j+1)]:5:3,' ',i, ' ', j+1);
end;
end;
writeln;
end;
writeln('Proizvedenie ravno: ', p);
writeln;
writeln('Kolichestvo elementov: ', kol);
end;
procedure vvod(var c:misx; var m,n:integer);
begin
readln(FI,m,n);
writeln('m=',m:3, 'n=',n:3);
GETMEM(c,m*n*sizeof(real));
for i:=1 to m do
for j:=1 to n do read(FI, c^[(i-1)*n+j]);
end;

{-----Osnovnaya programma-----}
begin
Assign(FI,'lr3.dat');
reset(FI);
clrscr;
vvod(c,m,n);
close(FI);
writeln(' Isxodnie dannie');
print(c,m,n);
writeln;
obr1(c,z,m,n);
writeln(' Rezultat',#10#13);
writeln('Sformirovannii massiv:',#10#13);
writeln;
print(c,m,n);
writeln;
FREEMEM(c,m*n*sizeof(real));
repeat until keypressed;
close(output);
end.