Заменить все положительные элементы массива, кратные пяти, на максимальный элемент

program Arr;
Var Chisla:array[1..7] of integer;Str:string;Min,p,i:integer;
 
BEGIN
writeln('Vvedite Array');
for i:=1 to 7 do Readln(Chisla[i]);
Writeln('‚лў®¤ ¬*ббЁў*:');
for i:=1 to 7 do Write(Chisla[i]);
write(chr(13),chr(10));
Min:=Chisla[1];
for i:=1 to 7 do
   if chisla[i] < Min then
    begin
    Min:=Chisla[i];
    p:=i;
    end;
 
writeln('Min=',Min);
Writeln('Index=',p);
readln;
END.

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure Vvod(var v:mas;var x:byte);
var i:byte;
begin
repeat
write('Размер массива =');
readln(x);
until x in [1..nmax];
writeln('Введите ',x,' элементов массива:');
for i:=1 to x do
 begin
  write('el[',i,']=');
  readln(v[i]);
 end;
write('Нажмите Enter...');
readln;
end;
procedure Vyvod(var v:mas;x:byte);
var i:byte;
begin
for i:=1 to x do
write(v[i],' ');
writeln;
writeln;
write('Нажмите Enter...');
readln;
end;
procedure Max(v:mas;x:byte; var mx:integer);
var i:byte;
begin
mx:=v[1];
for i:=1 to x do
if v[i]>mx then mx:=v[i];
writeln('Максимальный элемент=',mx);
write('Нажмите Enter...');
readln;
end;
procedure Zamena(var v:mas;x:byte;mx:integer);
var i:byte;
begin
for i:=1 to x do
if (v[i] mod 5=0)and(v[i]>0) then v[i]:=mx;
Vyvod(v,x);
end;
var a:mas;
    n:byte;
    mx:integer;
    c:char;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-ввод массива');
writeln('2-вывод массива');
writeln('3-максимальный элемент');
writeln('4-замена элементов, кратных 5');
writeln('другое - выход');
readln(c);
case c of
'1':Vvod(a,n);
'2':begin
    writeln('Исходный массив:');
    Vyvod(a,n);
    end;
'3':Max(a,n,mx);
'4':begin
    writeln('Массив после замены элементов:');
    Zamena(a,n,mx);
    end;
else exit;
end;
until not(c in ['1'..'4']);
end.