Нет перегруженной подпрограммы с такими типами параметров

program n2;
 
const
  N = 30;
 
var
  arr: array[1..N] of shortint;
  Max, t, i, a: shortint;
  z: string[1];
 
begin
  randomize;                                                                    
  for i := 1 to N do 
  begin
    arr[i] := random(100) + 1;                                                  
  end;
  writeln;
  t := arr[1] + arr[2] + arr[3];                                                
  Max := t;                                                                     
  for i := 4 to N do
  begin
    t := t + arr[i] - arr[i - 3];                                               
    if t > Max then Max := t;
  end;
  writeln('Максимальная сумма трёх последовательных элементов=', Max);          
  writeln('Показать массив?(y;n)');                                             
  readln(z);
  a:=Ord(z);
  if a = 121 or a = 89 then
  begin
    for i := 1 to 30 do
      write(arr[i], ' ');
  end;
end.