Матрица

uses crt;
const nmax=100;
type mas=array [1..nmax] of integer;
var n:byte;
procedure Vvod(var v:mas;c:char);
var i:byte;
begin
writeln('Исходный массив ',c);
for i:=1 to n do
 begin
  v[i]:=random(50);
  write(v[i],' ');
 end;
writeln;
writeln;
end;
procedure Zamena(var v:mas);
var i,imx:byte;
    mn:integer;
begin
imx:=1;
mn:=v[1];
for i:=1 to n do
 begin
  if v[i]>v[imx] then imx:=i;
  if v[i]<mn then mn:=v[i];
 end;
writeln('Максимальный элемент=',v[imx],' его индекс=',imx);
writeln('Минимальный элемент=',mn);
writeln;
if imx=n then
  begin
   writeln('Максимальный элемент последний, замен нет!');
   writeln;
  end
else
 begin
  writeln('Замена элементов после максимального на минимальный:');
  for i:=1 to n do
   begin
    if i>imx then v[i]:=mn;
    write(v[i],' ');
   end;
  writeln;
  writeln;
 end;
end;
var a,b:mas;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
Vvod(a,'A');
Zamena(a);
Vvod(b,'B');
Zamena(b);
readln
end.