Решите задачки по паскалю пожалуйста

[xxxBITxxx]

Задание 1

Вычислить произведение элементов матрицы D(20,20), без учета элементов побочной диагонали.


Задание 2

В текстовом файле содержится последовательность действительных чисел. Найти максимальное из чисел, имеющих нечетные порядковые номера. Результат дописать в конец исходного файла. Имя файла вводится с клавиатуры.

буду очень благодарен если вы мне поможете!!!

[xxxBITxxx]

//Вот тут код 1 программы она не хочет работать почему?
program Prog2_Matrix;


Const n=20;
Var H:Array [1..n,1..n] of integer;
i,j:integer;
proizv:Real;
begin
writeln (' Source Matrix...');
for i:=1 to n do {Создание исходной матрицы}
begin
for j:=1 to n do
begin
H[i,j]:=random(5)+1;
Write (H[i,j],' ');
end;
WriteLn;
end;
Writeln;
proizv:=1;

for i:=1 to n do
begin
for j:=1 to n do
begin
if (j<>(n-i+1)) then
proizv:=proizv*H[i,j];
end;
end;
Write(proizv);
Writeln;
writeln ('Press ENTER for EXIT');
readln;
end

\\а здеся начало кода 2 прогриrogram Proga3;

{$APPTYPE CONSOLE}
var
MyFile: String;
MyTextFile: Text;
NUM : Real;
MaxNUM: Real;i: integer;

begin
i:=0;
Writeln('Input file name ');
Readln(MyFile);
Assign(MyTextFile, MyFile);

Reset(MyTextFile);
Read(MyTextFile, MaxNUM);

Close(MyTextFile);
Reset(MyTextFile);
While not EOF (MyTextFile) do
Begin

Read(MyTextFile, NUM);

i:=i+1;
if odd(i) then
begin

if NUM>MaxNUM then
MaxNUM:=NUM;

end;
end;

close(MyTextFile); Append (MyTextFile);
Write ( MyTextFile, ' Result: ' ,MaxNUM:6:3 );
Writeln;
Writeln ('Resultat: ' ,MaxNUM:6:3 );

close(MyTextFile);
Writeln;
Writeln ('Press Enter to Exit'); Readln;
end.

объясните пожалуйста

[puporev]

По первой задаче.
1.Маленикий пустячок - поставьте точку в конце программы.
2.Главное - вы перемножаете 380 чисел, получается число порядка 1,5 в степени 154. Тип Real здесь не подходит, возьмите тип Extended или Double. Или сделайте матрицу, скажем 5х5, или заполните ее вещественными числами меньше 1, короче поэкспериментируйте с размерность чисел, их составом и типом.

По второй задаче.
Много неточностей и много лишнего.
Переделал так:

var
MyFile: String; 
MyTextFile: Text;
NUM:real;
MaxNUM: Real;
i: integer;
c:char;
begin
Write('Input file name ');
Readln(MyFile);
Assign(MyTextFile, MyFile);
Rewrite(MyTextFile);
MaxNUM:=-maxint; i:=0;//максимум  - самое маленикое число типа Integer
write('Vvedite chisla:');
repeat
i:=i+1;
readln(num); //после ввода числа-два раза Enter
if odd(i)and(NUM>MaxNUM) then
MaxNUM:=NUM;
writeln(MyTextFile, NUM:6:3);
c:=readkey;  //если закончили ввод-Enter и Esc
until c=#27;
Writeln ('Resultat: ' ,MaxNUM:6:3 );
Writeln(MyTextFile,'');
Write ( MyTextFile, ' Result: ' ,MaxNUM:6:3 );
Close(MyTextFile);
Writeln('Fail ',MyFile, ' zapisan!');//конец оформляйте на свое усмотрение
writeln;
Writeln ('Press Enter to Exit');
Readln;
end.