Найти сумму трехзначных чисел в наборе

Var
  n,k,i,j,st,s:integer;
Begin
  Writeln('Введите количество чисел: ');Readln(n);
  Writeln('Вводите числа через пробел');
  For i:=1 to n do
  begin
    k:=0;
    While k<>3 do
    begin      
      if Keypressed then 
      begin        
        j:=ReadKey;
        inc(k);
        Case k of
          1: st:=st+j*100;
          2: st:=st*j*10;
          3: st:=st+j;
        end;
        if j=#32 then
        begin
          Write(' ');
          inc(i);
        end;
        Write(j);
      end
      
    end;
  s:=s+st; 
  end;
  Writeln('Сумма чисел: ',s);
end.

Uses crt;
Var
  n,k,i,j,st,s:integer;
  jt:char;
Begin
  Writeln('Введите количество чисел: ');Readln(n);
  Writeln('Вводите числа через пробел');
  For i:=1 to n do
  begin
    k:=0;
    While k<>3 do
    begin      
      if Keypressed then 
      begin        
        jt:=ReadKey;
        Case jt of
          '1':j:=1;
          '2':j:=2;
          '3':j:=3;
          '4':j:=4;
          '5':j:=5;
          '6':j:=6;
          '7':j:=7;
          '8':j:=8;
          '9':j:=9;
          '0':j:=0;
        end;     
        inc(k);
        Case k of
          1: st:=st+j*100;
          2: st:=st*j*10;
          3: st:=st+j;
        end;        
        if jt=#32 then
        begin
          Write(' ');
          jt:=readkey;         
        end;
        Write(j);
      end
      
    end;
  s:=s+st; 
  end;
  Writeln('Сумма чисел: ',s);
  readln;
end.