Выдает ошибку " Нельзя преобразовать тип real к integer"

program mas3;
 
const
  n_st = 8;
 
procedure Vvod_mas(i: integer);
var
  m: array[1..n_st] of real;
begin
  writeln('Введите массив из ', n_st, ' строк:');
  for i := 1 to n_st do
    readln(m[i]);
  writeln('Ваш массив:');
  for i := 1 to n_st do
    write(' m[', i:2, ']= ', m[i]:1:1);
  writeln;
end;
 
procedure Poisk_max(max: real; i: integer);
var
  m: array[1..n_st] of real;
begin
  writeln('Максимальное число массива:');
  max := m[1];
  for i := 1 to n_st do
  begin
    if m[i] > max then
      max := m[i];
  end;
  writeln(' m[', i:2, ']= ', max:1:1);
  readln;
end;
 
procedure summa(sum, s: real; i: integer);
var
  m: array[1..n_st] of real;
begin
  writeln('Сумма от первого элемента до максимального элемента:');
  sum := 0;
  begin
    for i := 1 to 8 do
      s := s + m[i];
    sum := s;
  end;
  writeln('Сумма от максимального элемента до конца массива:');
  begin
    for i := 8 to n_st do
      s := s + m[i];
    sum := s;
  end;
end;
 
var
  m: array[1..n_st] of real;
  i: integer;
 
begin
  Vvod_mas(m[i]);
  Poisk_max(max);
  summa(sum);
  readln;
end.