Тема: пожалуйста нужно сделать задание по основам программирования! - Pascal ABC

Дана строка S. Выяснить есть ли в ней цифры. Если есть, то вывести эти цифры на экран, а также их количество. Если нет- то вывести сообщение об этом. Кроме того в полученной строке найти количество нечетных цифр, вывести эти цифры на экран и их количество, а если нечетных цифр нет - то вывести сообщение об этом. Выход из программы по нажатию клавиши Esc.

Pascal Code:

uses crt;
 
const s:string='0123456789';
var a,b,x,s1,s2:string;
 
i,j,d,p,code,l:integer;
 
begin
 
repeat
 
clrscr;
 
d:=0; l:=0;
 
writeln('введи строку из цифр и букв');
 
readln(a);
 
x:=' ';
 
for i:=1 to length(a) do
 
begin
 
b:=copy(a,i,1);
 
for j:=1 to length(s) do
 
if b=s[j] then begin inc(d); x:=x+b; end;
 
end;
 
writeln;
 
if d=0 then writeln('в строке нет цифр')
 
else
 
begin
 
write('цифры введенной строки..'); writeln(x);
 
writeln('их количество ...',d);
 
writeln;
 
s2:=' ';
 
for i:=1 to length(x) do
 
begin
 
val(x[i],p,code);
 
if odd(p) then begin inc(l); str(p,s1); s2:=s2+s1; end;
 
end;
 
writeln;
 
if l=0 then writeln('среди чисел нет нечетных') else
 
begin
 
write('нечетные цифры..'); writeln(s2);
 
writeln('количество нечетных цифр...',l);
 
end;
 
end;
 
writeln;
 
writeln(' для выхода клавиша ESC, для продолжения ENTER');
 
until readkey=#27;
 
end.