Посчитать количество четверок(Delphi7)

[Анастасья]

#

 Program Project22;
   {$APPTYPE CONSOLE}
   {Программа позволяет посчитать в массиве из n элементов количество
   четверок a(i),a(i+1),a(i+2),a(i+3)
   идущих подряд членов, их кторых все члены равны}
   uses
   SysUtils,windows;
   { TODO -oUser -cConsole Main : Insert code here }
  const nmax=20;
  type mas=array[1..nmax] of real;
    var
  Art:Mas;
  kol,k:integer;
  procedure read_ar(var ar:mas; N:integer);{процедура прозволяющая заполнить массив}
  var i:integer;
  begin
  for i:=1 to n do
    Begin
    Write('Введите элемент ',i , ':');
    readln(ar[i]);
    End;
  end;

  procedure print_ar(var ar:mas; N:integer);{процедура печатующая массив}
  var i:integer;
  begin
  for i:= 1 to n do
  write (ar[i]:6:1);
  readln;
  end;

  function vivod( var ar: mas; n:integer): integer; {функция проверяет  равны
   ли все дущие подряд  члены }
  var k,i:integer;
  begin
  k:=0;
  i:=1;
  While i < N-3 do
  Begin
  if ( ar[i]=ar[i+1]) and ( ar[i]= ar[i+2]) and (ar[i]= ar[i+3])
  then k:= k+1;
  End;
  vivod:=k;
  end;

  begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);
  Write('Число элементов = ');
  Readln(Kol);
  read_ar(art,kol);
  writeln;
  print_ar(art,kol);
  writeln;
  Writeln('Количество = ',vivod(k):8:6);:confused:
  readln;
  End.

{программа выдает ошибку что формальный и фактические типы должны совпадать... я не пойму как исправить.. }

[Mad_Cat]

While i < N-3 do
Begin
if ( ar[i]=ar[i+1]) and ( ar[i]= ar[i+2]) and (ar[i]= ar[i+3])
then k:= k+1;
i:=i+1;//пропустили
End;

у вас функция Vivod как описана

function vivod( var ar: mas; n:integer): integer;

и как вы ее вызываете

vivod(k):8

разницу видите7
должно быть

 vivod(art,kol):8:6