Viết chương trình cho phép tách phần tên ra khỏi xâu gồm họ và tên. Theo quy ước cách ghi tên của tiếng Việt, tên là thứ tự cuối cùng trong xâu. Pascal Giúp mình vs mình cần gấp

Bài 1: Nhập xâu kí tự bất kì
a) Đếm số lần xuất hiện của 1 kí tự nào đó trong câu.
b) Liệt kê các kí tự có mặt trong xâu cùng số lần xuất hiện của các kí tự đó.
Bài giải:
uses crt;
var str:string[100];
chu:array[#1..#254] of integer;
i:integer;
ch:char;
begin
clrscr;
for ch:=#1 to #254 do chu[ch]:=0;
write(' Nhap chuoi = ');readln(str);
for i:=1 to length(str) do
(chu[upcase(str[i])]):=chu[upcase(str[i])] +1;
writeLn('Cac ki tu trong xau la:');
for ch:=#1 to #254 do
if chu[ch]>0 then writeln(ch, ': xuat hien ',chu[ch],' lan');
readln;
end.

uses crt;
var s:string;
i,j:longint;
begin
read(s);
writeln('Ten : ');
i:=length(s);
while (s[i] <>' ') do
begin
dec(i);
if s[i] =' ' then
for j:=i+1 to length(s) do write(s[j]);
end;
readln;
End.