Даны 2 одномерных массива A и B

Type
  mas = Array [1..100] of Integer;
Var
  a,b,c: mas;
  i,n,p: Byte;
  m: Integer;
{--------------}
Procedure Generate(var h: mas; t: Byte);
{процедура создания массива}
var i: Byte;
begin
  Randomize;
  For i:=1 to t do
  h[i]:=Random(101)-50;
end;
{--------------}
Procedure Zeroing(var h: mas; t: Byte);
{процедура обнуления четных элементов}
var i: Byte;
begin
  For i:=1 to t do
  If not Odd(h[i]) Then
  h[i]:=0;
end;
{--------------}
Procedure Output(h: mas; t: Byte);
{процедура вывода массива}
var i: Byte;
begin
  For i:=1 to t do
  Write(h[i],' ');
  Writeln
end;
{--------------}
Procedure FoundMax(h: mas; t: Byte; var max: Integer);
{процедура нахождения максимального элемента}
var i: Byte;
begin
  max:=-Maxint;
  For i:=1 to t do
  If h[i]>max Then
  max:=h[i];
end;
{--------------}
Procedure Sort(var h: mas; t: Byte);
{процедура сортировки от min к max}
var i,j: Byte;
    tmp: Integer;
begin
  For i:=1 to t-1 do
  begin
    For j:=i+1 to t do
    If h[i]>h[j] Then
    begin
      tmp:=h[i];
      h[i]:=h[j];
      h[j]:=tmp
    end;
  end;
end;
{--------------}
Procedure Multiplication(x,y: mas; t: Byte; var h: mas);
{процедура умножения массивов}
var i: Byte;
begin
  For i:=1 to t do
  h[i]:=x[i]*y[i];
end;
{--------------}
BEGIN  {начало основной программы}
Writeln('Введите количество элементов в массивах: ');
Readln(n);
Generate(a,n);
Generate(b,n);
Writeln('---------------------------');
Writeln('<< Введите команду (1-6) >>');
Writeln('1 - Вывести массивы');
Writeln('2 - Обнулить четные элементы в массиве A');
Writeln('3 - Найти максимальный элемент в массиве A');
Writeln('4 - Переставить от min к max массив B');
Writeln('5 - Перемножить A и B');
Writeln('6 - Выход');
Repeat
  Readln(p);
  Case p of
    1: begin
         Writeln('Массив A:');
         Output(a,n);
         Writeln('Массив B:');
         Output(b,n);
       end;
    2: begin
         Zeroing(a,n);
         Output(a,n);
       end;
    3: begin
         FoundMax(a,n,m);
         Writeln('MAX=',m);
       end;
    4: begin
         Sort(b,n);
         Output(b,n);
       end;
    5: begin
         Multiplication(a,b,n,c);
         Output(c,n);
       end;
    6: Writeln('Программа завершена');
  end;
until p=6;
Readln
END.