массивы(одномерные)

Program massivetavle;
uses crt;
var
x,y,z: array [1..100] of integer;
 
a,i,j,n,q,ydal,vs:integer;
 
BEGIN
 
Write('Введите размерность массива,n=');
Readln(n);
Writeln('Введите массив');
for i:=1 to n do
Read(x[i]);
 
y:=x;
 
for i:=1 to n-1 do
 for j:=1 to n-1 do
   if y[j]>y[j+1] then
    Begin
     a:=y[j];
     y[j]:=y[j+1];
     y[j+1]:=a;
    end;
 
z:=x;
 for i:=1 to n-1 do
  for j:=1 to n-1 do
   if z[j]<z[j+1] then
    Begin
     a:=z[j];
     z[j]:=z[j+1];
     z[j+1]:=a;
    end;
 
Writeln('ј','     ','Исходный(x)','     ','Возрастание(y)','       ','Убывание(Z)');
for i:=1 to n do
 writeln(i,'        ',x[i],'               ',y[i],'            ',Z[i]);
   Readkey;
writeln('Хотите ли вы удалить какой либо эл-т из массивов?,1-да, 2-нет');
 Read(ydal);
  if ydal=1 then
   begin
    Writeln('Для удаления из x-массива нажмите 1,y-массива нажмите 2, Z-массива нажмите 3');
    Readln(q);
    case q of
    1:begin
    Write('Какой эл-т вы хотите удалить?');
     For i:=1 to n do