удалите из массива все четные числа

program ar;
const
 a=10;
type
 mc = array[1..a] of integer;
var
 arr:mc;
 i:integer;
begin
 writeln('Vvedite ',a,' elementov massiva:');
 for i:=1 to a do read(arr[i]);
 writeln();
 for i:=1 to a do
  if arr[i] mod 2 = 1 then
   write(arr[i],' ');
 
 readln();
 
end.

const
  nmax = 50;
var
  a:array [1..nmax] of integer;
  i,j,k,n:integer;
begin
  repeat
    write ('Razmer massiva: ');
    readln(n);
  until n in [1..nmax];
  randomize;
  for i:=1 to n do begin
    a[i]:=random(21)+10;
    write (a[i]:4);
  end;
  writeln;
  i:=1;
  k:=0;
  while i<=n-k do 
    if a[i] mod 2 = 0 then
      begin
        for j:=i+1 to n-k do a[j-1]:=a[j];
        k:=k+1;
        a[n-k+1]:=0;
      end else i:=i+1;
  for i:=1 to n do write (a[i]:4);
  writeln;
  readln;
end.

program ar;
const
 a=10;
type
 mc = array[1..a] of integer;
var
 arr:mc;
 i,l,n:integer;
begin
 writeln('Vvedite ',a,' elementov massiva:');
 for i:=1 to a do read(arr[i]);
 writeln();
 l:=0;
 for i:=1 to a do
  if arr[i] mod 2 = 1 then begin
   l:=l+1;
   arr[l]:=arr[i];
  end;
 for n:=l+1 to a do
  arr[n]:=0;
 
 for i:=1 to a do
  write(arr[i],' ');
 
 readln();
 
end.