For i:= 1 to length(s) do if s[i] in ['0'..'9'] then
Begin
writeln(s[i]);
Break;
End;
For i:= length(s) downto 1 do if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then
Begin
write(s[i]);
Break;
End;
Kí tự số đầu tiên trong dãy là '0' và kí tự chữ cuối cùng trong dãy là 'g' mà nhỉ ? Output ra như vậy là một dãy rồi còn gì nữa để xét đầu tiên và cuối cùng? Nếu out như vậy thì phải đổi đề thành "In ra dãy kí tự số và dãy kí tự chữ" (mìn đang nói câu b thôi aa)