В файле исходных данных содержатся значения элементов 2-ух одномерных массивов разной размерности

Program Massiv;
Uses {Подключаемый модуль для управления экраном}
crt;
Const
Flname='D:\Лабы\data.txt'; {путь к файлу с исходными данными}
Mmax=5;
Type
ARR= array[1..Mmax] of real;
Var
IVECT :ARR; {исходный массив}
Newvec:ARR; {новый сформированный массив}
M :integer; {значение величины}
i :integer; {индексная переменная}
Sum :real; {сумма}
Max :real; {максимальное значение}
f1 :text; {файловая переменная}
Nommax:integer; {номер максимального элемента с отрицательным знаком в массиве newvec}
Begin {подготовка к чтению из файла}
clrscr;
assign(f1,Flname);
reset(f1);
writeln('чтение из файла ',flname);
readln(f1,M); {чтение значеня M}
writeln('M=',M:4);
If (M<1) or (M>Mmax)
then
Begin
writeln('Неверное значение M'); {вывод сообщения об ошибке}
Close(f1);
readln;
exit; {закрытие файла}
end;
readln; {вывод значений массива из файла}
for i:=1 to Mmax do
begin
readln(f1,ivect[i]);
writeln('ivect[',i:2,']= ',ivect[i]:3:1);
end;
If (ivect[M]<>0) then begin {формирование нового массива Newvec}
For i:=1 to Mmax do
Begin
Newvec[i]:=IVECT[i]/IVECT[M];
writeln('NEWVEC[',i:2,']=',' ',Newvec[i]:8:4);
end;
readln; {суммирование М первых элементов нового массива newvec}
Sum:=Newvec[1];
For i:=2 to M do
Sum:=Sum+Newvec[i];
writeln('Sum=',sum:8:4);
readln; {определение положения наибольшего отрицательного элемента в массиве и его номера}
Max:=Newvec[1];
Nommax:=1;
For i:=2 to Mmax do
Begin
If (ABS(Newvec[i])<=Max) and (Newvec[i]<0)
then
Begin
Max:=Newvec[i];
Nommax:=i;
end;
end;
If Max>=0 then
Writeln('Отрицательных значений нет') else {печать значения максимального элемента отрицательных значений и его номера}
writeln('Max= ',Max:4:2,' Nommax= ',Nommax:2);
writeln;
end else begin
Writeln('Невозможно создать новый массив');
Writeln('Проверьте элемент ',M,' массива');
end;
end.

Program Massiv;
Uses {Подключаемый модуль для управления экраном}
crt;
Const
Flname='data.txt'; {путь к файлу с исходными данными}
Mmax=5;
Type
ARR= array[1..Mmax] of real;
Var
IVECT :ARR; {исходный массив}
Newvec:ARR; {новый сформированный массив}
M :integer; {значение величины}
i :integer; {индексная переменная}
Sum :real; {сумма}
Max :real; {максимальное значение}
f1 :text; {файловая переменная}
Nommax:integer; {номер максимального элемента с отрицательным знаком в массиве newvec}
Begin {подготовка к чтению из файла}
clrscr;
assign(f1,Flname);
reset(f1);
writeln('чтение из файла ',flname);
read(f1,M); {чтение значеня M}
writeln('M=',M:4);
If (M<1) or (M>Mmax)
then
Begin
writeln('Неверное значение M'); {вывод сообщения об ошибке}
Close(f1);
readln;
exit; {закрытие файла}
end;
readln; {вывод значений массива из файла}
for i:=1 to M do
begin
read(f1,ivect[i]);
writeln('ivect[',i:2,']= ',ivect[i]:3:1);
end;
close(f1);
If (ivect[M]<>0) then begin {формирование нового массива Newvec}
For i:=1 to Mmax do
Begin
Newvec[i]:=IVECT[i]/IVECT[M];
writeln('NEWVEC[',i:2,']=',' ',Newvec[i]:8:4);
end;
readln; {суммирование М первых элементов нового массива newvec}
Sum:=Newvec[1];
For i:=2 to M do
Sum:=Sum+Newvec[i];
writeln('Sum=',sum:8:4);
readln; {определение положения наибольшего отрицательного элемента в массиве и его номера}
Max:=Newvec[1];
Nommax:=1;
For i:=2 to Mmax do
Begin
If (ABS(Newvec[i])<=Max) and (Newvec[i]<0)
then
Begin
Max:=Newvec[i];
Nommax:=i;
end;
end;
If Max>=0 then
Writeln('Отрицательных значений нет') else {печать значения максимального элемента отрицательных значений и его номера}
writeln('Max= ',Max:4:2,' Nommax= ',Nommax:2);
writeln;
end else begin
Writeln('Невозможно создать новый массив');
Writeln('Проверьте элемент ',M,' массива');
end;
readln
end.

Flname='data.txt';