В одномерном массиве заменить минимальный элемент на k, а максимальный разделить на j — Pascal(Паскаль)

uses crt;
const max=100;
var a:array[1..max] of real;
    n,i,j,k,imn,imx:byte;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:0:2,' ');
writeln;
writeln;
writeln('Введите 2 числа:');
readln(k,j);
imn:=1;imx:=1;
for i:=1 to n do
 begin
  if a[i]<a[imn] then imn:=i;
  if a[i]>a[imx] then imx:=i;
 end;
writeln('Минимальный  элемент=',a[imn]:0:2,' его индекс=',imn);
writeln('Максимальный элемент=',a[imx]:0:2,' его индекс=',imx);
a[imn]:=k;
a[imx]:=a[imx]/j;
writeln('Измененный массив:');
for i:=1 to n do
write(a[i]:0:2,' ');
readln
end.