В диапазоне от a до b вывести все числа, в середине которых есть четная цифра

uses crt;
var p,k,b,a,ch,e,i,z,s:integer;
begin
k:=0;
writeln;
write('введите число=');
readln(a);
b:=a mod 10; //b-конечная цифра
 
ch:=a;
while ch<>0 do
begin
ch:=ch div 10;
k:=k+1; //k-количество цифр в числе
end;
 
if (k mod 2=0) then
p:=k div 2            //p-порядок середины
else p:=(k div 2)+1;
 
e:=1;
for i:=1 to p do
begin
e:=e*10;
end;
 
if (k mod 2=0) then
z:=a div e
else z:=10*a div e;
 
s:=z mod 10; //s-цифра середины
if (s mod 2 = 0) then
writeln(s);
end.

uses crt;
var p,k,b,a,ch,e,i,z,s,m:integer;
begin
k:=0;
writeln;
write(Введите диапазон=');
readln(a,m);
repeat
b:=a mod 10; //b-конечная цифра
 
ch:=a;
while ch<>0 do
begin
ch:=ch div 10;
k:=k+1; //k-кол-во цифр в числе
end;
 
if (k mod 2=0) then
p:=k div 2            //p-порядок середины
else p:=(k div 2)+1;
 
e:=1;
for i:=1 to p do
begin
e:=e*10;
end;  
 
if (k mod 2=0) then
z:=a div e
else z:=10*a div e;
 
 
s:=z mod 10; //s-цифра в середине
if (s mod 2 = 0) then
writeln('В числе ',a, ' в середине четная цифра');
k:=0;
a:=a+1;
until (a=m)
end.