Склавиатуры вводится натуральное число к. затем последовательно вводятся к чисел с плавающей точкой,не превышающей 10. найти сумму этих чисел и наименьшее из них программа на паскале

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 (min<g[i]) thenmin:=g[i];end;writeln(s);writeln(g[i]);end.

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 b>10 do
    begin
      writeln('число должно быть меньше 10');
      write('повторите ввод:  ');
      readln(b);
    end;
    if b<min then min:=b;
    s:=s+b;
  end;
  writeln('сумма чисел = ',s);
  writeln('наименьшее число = ',min);
end.