С клавиатуры вводится естественное число К. потом поочередно вводятся К чисел

Var k,i: integer;
    b,s,min: real;
begin
  write('целое число: ');
  readln(k);  s:=0; min:=10;
  for i:=1 to k do
  begin    write('число: ',i,'  ');  readln(b);
    while bgt;10 do
    begin
      writeln('число обязано быть меньше 10');
      write('повторите ввод:  ');
      readln(b);
    end;
    if blt;min then min:=b;
    s:=s+b;
  end;
  writeln('сумма чисел = ',s);
  writeln('меньшее число = ',min);
end.
    

Var g:array[1..100] of integer;var k,i:integer;min,s:integer;beginreadln(k);for i:=1 to k dobeginreadln(g[i]);write(g[i]:3);end;writeln;s:=0; min:=10;for i:=1 to k dos:=s+g[i];for i:=1 to k dobeginif (minlt;g[i]) thenmin:=g[i];end;writeln(s);writeln(g[i]);end.