Парсинг строк в pascal

[Night_Devil]

Добрый день! У меня такая проблема - пользователь вводит строкой любое количество чисел, а программа должна посчитать их сумму. Проблема в том, что последнее слагаемое не прибавляется к сумме всех чисел. Как это исправить?
Вот код:

program 1;
var
i,sum:integer;
a:string;
begin
readln(a);
for i:=1 to length(a) do begin
if copy(a,i,1)=' ' then begin
sum:=sum+strtoint((copy(a,1,i-1)));
delete(a,1,i);
i:=1;
end;
end;
writeln(sum);
end.

[Arigato]

Если не переделывать ваш код (который стоило бы переделать полностью), то после readln (a) можно добавить: a := a + ' ';

[Night_Devil]

Спасибо, помогло!