Giúp mình mới, mình đang cần gấp viết và cho ra phương trình pascal họ và tên, ngày tháng năm sinh, tính tổng ngày tháng năm sinh. Biết học sinh sinh ngày: 04/05/2005.

uses crt;

var s1, s2 : string; t, a, i : integer;

begin

clrscr;

write('Nhap ho va ten : '); readln(s1);

write('Nhap ngay thang nam sinh : '); readln(s2);

t := 0; for i := 1 to length(s2) do

if s2[i] in ['0' ..'9'] then begin

val(s2[i], a); t := t + a; end;

write('Tong ngay thang nam sinh = ', t);

readln

end.

var s,st:string;
    i,t:longint;
begin
write('Nhap vao ho ten: ');readln(s);
write('Nhap vao ngay thang nam sinh: ');readln(st);
for i := 1 to length(st) do
if (st[i] in ['1'..'9']) then t := t + (ord(st[i])-48);
writeln('Tong ngay thang nam sinh = ',t);
readln;
end.