массив

[nes@]

Доброго вам суток дня! не могли бы вы подсказать, где ошибка в решении: Задан вещественный массив mxn, увеличить на 1 все отрицательные элементы и уменьшить на 1 все положительные элементы этого массива.
Program_n;
uses crt
m=1;n=4;
t.matr:array[1..m,1..n]of real;
var
b:t.matr;
f:text;
i,j:integer;
procedure print matr
var
i,j:integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
write(b[i,j]:8:2);
writeln;
end;
writeln;
end;
begin
clrsqr
assign (f,'f.dat');
reset (f);
for i:=1 to m do
begin
for j:=1 to n do
read (f,b[i,j]);
readln(f);
end;
end;
writeln {исходная матрица};
print matr
for i:=1 to m do
begin
for j:=1 to n do
if b[i,j]<0 then b[i,j]:=b[i,j]+1;
else
begin
if b[i,j]>0 then b[i,j]:=b[i,j]-1;
end;
end;
writeln{измененная матрица};
print matr
end.

[p51x]

"m=1;n=4;" - это что? const забыли?
"t.matr:array[1..m,1..n]of real;" - аналогично?
"procedure print matr" -??

Дальше читать не охота... Возьмите любую книжку по паскалю и привидите код в соответствие синтаксису.

[Carbon]

ТС, код оформляйте! так читать невозможно!

[nes@]

не знаю не знаю, походу либо вы плохо знаете паскаль либо мой преподаватель...

[Google2010]

это только на первый взгляд

Programm nnn;
uses crt;
const
m=1;n=4;
type
tmatr=array[1..m,1..n]of real;
var
b:t.matr;
f:text;
i,j:integer;
procedure printmatr;
var
i,j:integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
write(b[i,j]:8:2);
writeln;
end;
{writeln;}
end;
begin 
clrscr;
assign (f,'f.dat');
reset (f);
for i:=1 to m do
{begin}
for j:=1 to n do
read (f,b[i,j]);
{readln(f);}
{end;
end;}
close(f);
writeln ('исходная матрица');
printmatr;
for i:=1 to m do
{begin}
for j:=1 to n do
if b[i,j]<0 then b[i,j]:=b[i,j]+1{;}
else
{begin}
if b[i,j]>0 then b[i,j]:=b[i,j]-1;
{end;}
{end;}
writeln('измененная матрица');
printmatr;
end.

Преподавателю, ПРИВЕТ!!!