Erreur 113

Bonjour,

je traite mon problème et sa bugg voila ce que j'ai traité, veuillez m'aider

program somme;

uses wincrt;

var

x,x2:integer;

procedure som1(var x:integer);

var
N,S,S1,som1,i:integer;

begin

repeat

begin
writeln('donnez x');
readln(x);

som1 := 0;

N:= x mod 10;

S:=som1+N;

for i:=1 to S do

begin

if(S=0) then S:=som1+N;
S1:=S+N;
som1:=S1;

end;
end;

begin

procedure somme2 (var x:integer);

var

begin

repeat

som2:= 0;
N2:= N mod 10;

S2:=som2+N2

for i:=1 to S2 do

if (S2=0) then S2:=som2+N2;
S3:=S2+N2;
som2:=S3;
end;
(procedure somme2 ... souligné et l'erreur 113) aidez moi