Строковый тип данных

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.

uses crt;
const t:string=('123456789');
var d,f:boolean;
i,j,n,b,code:integer;
s,h,k,s1:string;
begin
repeat
clrscr;
Write('Введите строку:');Readln(s);
d:=false; f:=false;
h:=' '; k:=' ';
for n:=1 to length(t) do
begin
if s[1]=t[n] then begin d:=true; h:=t[n]; end;
if s[2]=t[n] then begin f:=true; k:=t[n]; end;
end;
if (d=false)or(f=false) then
writeln('Первые два символа не являются цифрами')
else
begin
Writeln('Два первых символа являются числами: ',h,' и ' ,k);
s1:=h+k;
val(s1,b,code);
if odd(b) then Writeln(b,' Нечетное') else writeln(b,' Четное');
end;
writeln( ' для продолжения нажмите клавишу ENTER');
writeln(' для выхода из программы клавишу Esc');
until readkey=#27;
end.