Циклические программы

[HECTOR.A.]

Реализовать два варианта программы: с использованием цикла while и с использованием цикла repeat:

ПОМОГИТЕ ПОЖАЛУЙСТА:

Дано натуральное число. Определить сумму цифр, больших 7.

ЗАРАНЕЕ СПАСИБО

[alex_fcsm]

var s:string;
    i,sum,code,j:integer;
begin
 readln(s);
i:=0;j:=0;
{repeat
inc(i);
val(s[i],j,code);
if j>7 then sum:=sum+j;
until i=length(s);
writeln(sum);}
{
while i<length(s) do
 begin
  inc(i);
  val(s[i],j,code);
  if j>7 then sum:=sum+j;
 end;
 writeln(sum); }
end.

[HECTOR.A.]

Спасибо вам всем огромное кто помогает.
Respect вам всем.!