сдвиг максимального числа в массиве

[rootkot]

Прошу помочь. Не получается дописать циклический сдвиг так что-бы максимальное встало на первое место.
Вот например массив идет так 8 4 9 2 после сдвига должен быть так 9 8 4 2
ошибка в процедуре сдвига.

Uses CRT;
const A=5; B=7;
type mas=array[1..B] of integer;
var x,y:mas;
max,imax,i:integer;
procedure MASSIV(var m:mas;k:integer);
begin
for i:= 1 to k do
m[i]:= random(200)-99;
end;
procedure VVOD(m:mas;k:integer);
begin
write;
for i:= 1 to k do
write(m[i]:5);
writeln;
end;
procedure POSLESDVIGA(var m:mas; k:integer);
var max,imax,kol,a:integer;
begin
imax:=1;
for i:=1 to k do
if m[i]>max then
begin
max:=m[i];
imax:=i;
end;
writeln(' Maksimum = ',max);
a:=m[1];
m[1]:=max;
end;
procedure REZULTAT(m:mas;k,c:integer);
begin
writeln;
write('Massiv ',c,' s maksimalnim na 1 meste');
for i:= 1 to k do
write(m[i]:5);
writeln
end;
BEGIN
CLRSCR;
randomize;
massiv(x,a);vvod(x,a);
poslesdviga(x,a);rezultat(x,a,1);writeln;
massiv(y,b);vvod(y,b);
poslesdviga(y,b);rezultat(y,b,2);
END.

[BDA]

Данный код сдвинет все максимальные элементы влево.

const
  ncount = 10;

var
  i, j, max, k: integer;
  a: array[1..ncount] of integer;

begin
  randomize;
  for i := 1 to ncount do
    a[i] := random(5) + 1;
  for i := 1 to ncount do
    write(a[i], ' ');
  
  max := a[1];
  k := 1;
  for i := 2 to ncount do
    if a[i] > max then
    begin
      max := a[i];
      k := 1;
    end
    else
    if a[i] = max then
      inc(k);
  i := ncount;
  j := ncount;
  while (j > 0) do
  begin
    a[i] := a[j];
    if a[i] = max then
      dec(j)
    else
    begin
      dec(i);
      dec(j);
    end;
  end;
  for i := 1 to k do
    a[i] := max;
  
  writeln;
  for i := 1 to ncount do
    write(a[i], ' ');
  readln;
end.

[rootkot]

Отлично спасибо, но часто прога вылетает с ошибкой думаю дело во втором массиве, что-бы еще подпилить?

Uses CRT;
const A=5; B=7;
type mas=array[1..B] of integer;
var x,y:mas;
max,imax,i:integer;
procedure MASSIV(var m:mas;k:integer);
begin
for i:= 1 to k do
m[i]:= random(100)-50;
end;
procedure VVOD(m:mas;k:integer);
begin
write;
for i:= 1 to k do
write(m[i]:5);
writeln;
end;
procedure POSLESDVIGA(var m:mas; k:integer);
var max,a,u,j:integer;
begin
max := m[i];
for i:=1 to k do
if m[i]>max then
 begin
  max:=m[i];
writeln(' Maksimum = ',max);
      u:= 1;
 end
    else
    if m[i] = max then
      inc(u);
  i := k;
  j := k;
  while (j > 0) do
  begin
    m[i] := m[j];
    if m[i] = max then
      dec(j)
    else
    begin
      dec(i);
      dec(j);
    end;
  end;
  for i := 1 to u do
   m[i] := max;
 writeln
 end ;
procedure REZULTAT(m:mas;k,c:integer);
begin
writeln;
write('Massiv ',c,' s maksimalnim na 1 meste');
for i:= 1 to k do
write(m[i]:5);
writeln
end;
BEGIN
CLRSCR;
randomize;
massiv(x,a);vvod(x,a);
poslesdviga(x,a);rezultat(x,a,1);writeln;
massiv(y,b);vvod(y,b);
poslesdviga(y,b);rezultat(y,b,2);
END.

[BDA]

Из-за неправильно инициализированных переменных - 99%.

procedure POSLESDVIGA(var m:mas; k:integer);
var max,a,u,j:integer;
begin
max := m[1];
u:=1;
for i:=2 to k do
	if m[i]>max then
	begin
		max:=m[i];
		u:= 1;
	end
    else
    if m[i] = max then
		inc(u);
writeln(' Maksimum = ',max);

И раз уж дело дошло до исправлений

uses
  CRT;

const
  A = 5; B = 7;

type
  mas = array[1..B] of integer;

var
  x, y: mas;

procedure MASSIV(var m: mas; k: integer);
var
  i: integer;
begin
  for i := 1 to k do
    m[i] := random(100) - 50;
end;

procedure VVOD(var m: mas; k: integer);
var
  i: integer;
begin
  write;
  for i := 1 to k do
    write(m[i]:5);
  writeln;
end;

procedure POSLESDVIGA(var m: mas; k: integer);
var
  max, u, j, i: integer;
begin
  max := m[1];
  u := 1;
  for i := 2 to k do
    if m[i] > max then
    begin
      max := m[i];
      u := 1;
    end
    else
    if m[i] = max then
      inc(u);
  writeln(' Maksimum = ', max);
  i := k;
  j := k;
  while (j > 0) do
  begin
    m[i] := m[j];
    if m[i] = max then
      dec(j)
    else
    begin
      dec(i);
      dec(j);
    end;
  end;
  for i := 1 to u do
    m[i] := max;
  writeln
end ;

procedure REZULTAT(var m: mas; k, c: integer);
var
  i: integer;
begin
  writeln;
  writeln('Massiv ', c, ' s maksimalnimi v nachale');
  for i := 1 to k do
    write(m[i]:5);
  writeln
end;

begin
  CLRSCR;
  randomize;
  massiv(x, a);
  vvod(x, a);
  poslesdviga(x, a);
  rezultat(x, a, 1);
  writeln;
  massiv(y, b);
  vvod(y, b);
  poslesdviga(y, b);
  rezultat(y, b, 2);
  readln;
end.

Массивы лучше передавать с var (меньше памяти требуется).
Все переменные объявлять в самих процедурах.
Удалять неиспользуемые переменные.

УПД

Сообщение от Hacker19_90

не смущает?

Смущает Моя опечатка

[Hacker19_90]

эх едрить колотить

но часто прога вылетает с ошибкой думаю дело во втором массиве,

Ясен перец

procedure POSLESDVIGA(var m:mas; k:integer);
var max,a,u,j:integer;
begin
max := m[i];

не смущает?

[rootkot]

Большое спасибо за помощь, прога заработала