Помогите пожалуйста срочно!! Написать программу нахождения суммы всех чисел> заданного К при вводе до первого отрицательного.

Пишем программу:Pascal ABC.uses crt;var i,j,n:integer; s:array[1..20] of integer;begin clrscr; readln(n); j:=0; repeat j:=j+1; i:=n mod 10; n:=n div 10; s[j]:=i; until n=0; n:=j; for i:=1 to n-1 do for j:=i+1 to n do if s[i]=s[j] then write(s[i],\' \'); writeln; readln;end.Программа написана.