Nhập vào một dãy số, xóa bỏ các số lẻ. Xuất kết quả dưới dạng đối xứng của phần còn lại. Làm ơn giải giùm mình cái, mình không biết làm sao luôn

program Min;
uses crt;
const so=['1','3','5','7','9'];
var s:string; i:integer;
begin
   clrscr;
   write('Nhap day so: '); readln(s);
   i:=1;
   while i<=length(s) do
   if s[i] in so then
     begin
        delete(s,i,1);
        i:=1;
     end
   else inc(i);
   write('Sau khi xoa cac so le va bien doi doi xung, ta thu duoc day:',s);
   for i:=length(s) downto 1 do write(s[i]);
   readln
end.

Bạn tham khảo nhé, chỗ nào chưa hiểu mình sẽ hướng dẫn thêm.