Решение не оптимальное, но должно работать

i:=1;
while s[i]<>'@' do
begin
m:=m+s[i];
i:=i+1;
end;
for j:=i to length (s) do
if s[i]='1' or '2' or '3' or '4' or '5' or '6' or '7' or '8' or '9' or '0' then
p:=p+s[i];