Процедура ввода матрицы из файла не работает...(

[rudal86]

Пишу программа на Паскале,считать матрицу из файла,превратить локальные минимумы в 0 и записать в другой файл,всё работает кроме корректоного считывания,помоги студенту.........очень надо до 26.05

[Z1000000]

Ты матрицу свою хранишь в текстовом файле, как я понял.
А читаешь из него целые числа?

Используй типизированный файл

var 
 f: file of integer;

[rudal86]

сделайте доброе дело напишите код или процедуру..........
да считывается с текстовогго файла
не знаю как применить file of integer///////////

[Z1000000]

program Laba;
var
 f: file of Integer;
 a: array[0..9,0..9] of Integer;
 
// Чтение матрицы из файла
procedure VvodMatrix;
var
 MStr,MCol,i,j : Integer;
begin
assign (f,'matrix.txt');
reset ( f ) ;
read(f,MStr); // первый элемент файла число строк
read(f,MCol); // второй элемент файла число столбцов
for i:=0 to MStr-1 do
 for j:=0 to MCol-1 do
  begin
  read(f,a[i,j]);
  end;
Close(f);
end;

// Запись матрицы в файл
procedure SaveMatrix;
var
 MStr,MCol,i,j,aCurElem : Integer;
begin
assign (f,'matrix.txt');
rewrite ( f ) ;
write('введите число строк матрицы :'); readln(MStr);
write(f,MStr);
write('введите число столбцов матрицы :'); readln(MCol);
write(f,MCol);
for i:=0 to MStr-1 do
 for j:=0 to MCol-1 do
  begin
  write('Введите элемент ',i,',',j,': ');
  readln(aCurElem);
  write(f,aCurElem);
  end;
Close(f);
end;

begin
SaveMatrix;
VvodMatrix;
end.