ЗАдание с массивами

uses crt;
const nmax=50;
var x,y,z:array[1..2*nmax] of integer;
    m,n,p,q,i,j,k:byte;
    mx:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива Х до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Размер массива Y до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Массив Х:');
for i:=1 to n do
 begin
  x[i]:=random(980)+10;
  write(x[i]:4);
 end;
writeln;
writeln;
writeln('Массив Y:');
for i:=1 to m do
 begin
  y[i]:=random(980)+10;
  write(y[i]:4);
 end;
writeln;
writeln;
{объединим массивы, к У припишем Х}
for i:=1 to n do
 begin
  m:=m+1;
  y[m]:=x[i];
 end;
{если нужно вывести объединенный до сортировки
writeln('Объединенный массив Y+Х:');
for i:=1 to m do
write(y[i]:4);
writeln;
writeln;}
i:=1; n:=0;
while i<=m do
 begin
  mx:=y[i];{максимум текущее число}
  for j:=i+1 to m do
  if y[j]>mx then mx:=y[j];{нашли больше, оно макс}
  n:=n+1;{увеличиваем размер нового массива}
  z[n]:=mx;{записываем туда максимум}
  k:=1;
  while k<=m do
  if y[k]=mx then {ищем равные максимуму}
   begin
    for j:=k to m-1 do
    y[j]:=y[j+1]; {удаляем их путем сдвига влево}
    m:=m-1;{уменьшаем размер исходного массива}
   end
  else k:=k+1;
 end;
writeln('Объединенный массив, упорядоченный по убыванию без повторов:');
for i:=1 to n do
write(z[i],' ');
readln
end.