Помогите сократить код.

[Hadson]

Программа берет числа из даты(дд/мм/гггг) и суммирует их. Помогите, еще не опытен)


program fd;

var
date, strsumma, int, int2: string;
day1, day2, month1, month2, year1, year2, year3, year4: string;
iday1, iday2, imonth1, imonth2, iyear1, iyear2, iyear3, iyear4, k, summa, summa2, intsumma, iint, iint2: integer;
begin
readln(date);
day1 := copy(date, 1, 1);
day2 := copy(date, 2, 1);
month1:= copy(date, 4, 1);
month2:= copy(date, 5, 1);
year1:= copy(date, 7, 1);
year2:= copy(date, 8, 1);
year3:= copy(date, 9, 1);
year4:= copy(date, 10, 1);

val(day1, iday1, k);
val(day2, iday2, k);
val(month1, imonth1, k);
val(month2, imonth2, k);
val(year1, iyear1, k);
val(year2, iyear2, k);
val(year3, iyear3, k);
val(year4, iyear4, k);
summa := iday1 + iday2 + imonth1 + imonth2 + iyear1 + iyear2 + iyear3 + iyear4;
writeln(summa)
end.

[Foreseen]

Например, так

var
      Date: string;
      i, summ: integer;
begin
  Date:='09.05.1945';
  summ:=0;
    for i := 1 to Length(Date) do
     begin
      if (copy(Date, i, 1)='.') or (copy(Date, i, 1)='/') then
        Continue ;
        summ:=summ+StrToInt(copy(Date, i, 1));
        writeln(summ);
     end;
end;