Pascal, цикл while или repeat

Ввести число. Определить сумму цифр в первой половине числа.

Пример, N=123456, результат 6.

Program n1;

var s: string;

sum, i: longint;

begin

sum : = 0;

write ('введите число: ');

readln (s);

for i : = 1 to (length (s) div 2) do

sum : = sum + (ord (s[i]) - 48);

writeln ('сумма 1 половины цифр числа равна ', sum);

end.

Если вы уже прошли строки, то вот

program summa;

var

s: string;

I, sum: integer;

begin

sum : = 0;

Readln (s);

for i : = 1 to (length (s) div 2) do

sum : = sum + (ord (s[i]) - 48);

Writeln (sum);

end.