giúp mình bài này với code pascal nhá

uses crt;
var  s,d,d2:string;
i:integer;
begin
assign(input,'tachchuoi.inp');
reset(input);
assign(output,'tachchuoi.out');
rewrite(output);
readln(s);
for i:=1 to length(s) do
 if s[i] in ['0'..'9'] then d:=d+s[i]
 else
  d2:=d2+s[i];
if d2='' then writeln('-')
else
writeln(d2);
if d='' then write('-')
else
write(d);
end.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

const _ = ['0'..'9'];
var s : string;
    i, d : byte;
begin
    assign(input,'tachchuoi.inp'); reset(input);
    assign(output,'tachchuoi.out'); rewrite(output);
    readln(s);
    d := 0 ;
    for i := 1 to length(s) do
        if s[i] in _ then 
             begin
            write(s[i]);
            inc(d);
             end ;
    if d = 0 then write('-');
    close(input);close(output);
end .