Ввести массив f(n) вещественных чисел. если последний элемент массива положительный, то найти max среди элементов массива и заменить его значений последний элемент массива. массив распечатать. иначе – дать сообщение «массив остался без изменений»

Program Zadacha;
Const n = 5;
Var a: Array[1..n] Of Real;
i, j: Integer;
Begin
WriteLn('Введите ', n, ' чисел через пробел');
For i := 1 To n DoRead(a[i]);
If a[n] >= 0 ThenBeginj := 1;
For i := 1 To n Do
If a[i] > a[j] Then
j := i;a[n] := a[j];
For i := 1 To n Do
Write(a[i], ' ');
End
Else
WriteLn('Массив остался без изменений');
ReadLn;
End.