Вычислить сумму квадратов цифр. в паскале

Var I,S: integer;
Begin                                       
S:=0;
for I:=0 to 9 do    {цикл, перебираем цифры от 0 до 9 и присваиваем их     переменной  I }
    S:=S+sqr(I);                         {sqr(I)- квадрат I, Вычисляем квадрат и добавляем его в }                                                   общую сумму S}
writeln('сумма квадратов цифр = ',S);       {выводим сумму}
end.