Составить из элементов первого массива, которые являются палиндромами, второй массив

program Project4;
 
type tdar= array of integer;
 
 
procedure out_arr(n:integer; var x:Tdar);
var i :integer;
begin
  for i:=0 to n-1 do write(x[i]:5);
           readln;
 
end;
 
 
 
procedure  rand(n:integer;var mas:tdar);
var i:integer;
begin
randomize;
 write('исходный массив:');
for I := 0 to n-1 do mas[i]:=random(100);
 
     out_arr(n,mas);
     writeln;
end;
 
 
procedure sklava(n:integer;var mas:tdar);
var i:integer;
begin
write('исходный массив:');
 for i := 0 to n-1 do read(mas[i])
 
end;
 
 
 function palindrom     (n:integer):boolean;
var i,x1,p:integer;
begin
x1:=n; p:=0;
while n>0 do
begin
  p:=p*10+n mod 10;
  n:= n div 10;
end;
 
 
palindrom:=x1=p;
end;
 
 
 
 
procedure newarr(n:integer;var arr : Tdar;var new_arr: Tdar);
var i,j:integer;
 
begin
j:=0;
for i:= 0 to n-1 do
  if palindrom(arr[i]) then
  begin
    new_arr[j]:=arr[i];
    j:=j+1;
  end;
  if j > 1 then
  setlength(new_arr,j-1);
   out_arr(j-1,new_arr);
end;
 
var
a:tdar;
l:Tdar;
x,i,c:integer;
 
begin
  write('введите количество элементов в массиве:');
  readln(x);
  setlength(l,x);
  setlength(a,x);
  writeln('выберите способ');
  writeln('1-рандомный ввод');
  writeln('2-ввод с клавиатуры');
  readln(c);
  case c of
  1:rand(x,l);
  2:sklava(x,l);
  end;
 
  write('полученный массив:');
newarr(x,l,a);
 
 
 //out_arr(x,l);
 
readln;    readln; readln;
 
  end.

program Project4;
 
type
  tdar = array of integer;
 
procedure out_arr(n: integer; var x: Tdar);
var
  i: integer;
begin
  for i := 0 to n - 1 do 
    write(x[i]:5);
end;
 
procedure rand(n: integer; var mas: tdar);
var
  i: integer;
begin
  randomize;
  write('исходный массив:');
  for I := 0 to n - 1 do 
    mas[i] := random(100);
  out_arr(n, mas);
  writeln;
end;
 
procedure sklava(n: integer; var mas: tdar);
var
  i: integer;
begin
  write('исходный массив:');
  for i := 0 to n - 1 do 
    read(mas[i])
end;
 
function palindrom(n: integer): boolean;
var
  i, x1, p: integer;
begin
  x1 := n;
  p := 0;
  while n > 0 do
  begin
    p := p * 10 + n mod 10;
    n := n div 10;
  end;
  palindrom := x1 = p;
end;
 
procedure newarr(n: integer; var arr: Tdar; var new_arr: Tdar);
var
  i, j: integer;
 
begin
  j := 0;
  for i := 0 to n - 1 do
    if palindrom(arr[i]) then
    begin
      new_arr[j] := arr[i];
      j := j + 1;
    end;
  if j > 1 then
    setlength(new_arr, j);
  out_arr(j, new_arr);
end;
 
var
  a: tdar;
  l: Tdar;
  x, i, c: integer;
 
begin
  write('введите количество элементов в массиве:');
  readln(x);
  setlength(l, x);
  setlength(a, x);
  writeln('выберите способ');
  writeln('1-рандомный ввод');
  writeln('2-ввод с клавиатуры');
  readln(c);
  case c of
    1: rand(x, l);
    2: sklava(x, l);
  end;
  write('Полученный массив:');
  newarr(x, l, a);
end.