В массиве из n элементов подсчитать количество четырёд идущих подряд одинаковых элементов ( Delphi7 )

[Анастасья]

В массиве из n элементов подсчитайте количество четверок a(i),a(i+1),a(i+2),a(i+3), идущих подряд членов,из которых:
(все члены равны)

program Project1ctv2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

const nmax=20;
    type mas=array[1..nmax] of real;
  var
   kol,k:integer;
   ar:real;
 procedure read_ar(var ar:mas);
  var i,n:integer;
begin
  for i:=1 to n do
  read(ar[i]);
  readln;
end;

 procedure print_ar(var ar:mas);
  var i,n:integer;
 begin
  for i:= 1 to n do
  write (ar[i]:6:1);
  readln;
 end;

  function vivod( var ar: mas): real;
  var k,i,n:integer;
 begin
  k:=0;
  for i:= 1 to n-3 do
  if ( ar[i] =ar[i+1]) and ( ar[i]= ar[i+2]) and (ar[i]= ar[i+3])
  then k:= k+1;
   writeln( 'количество четверок  в массиве', k);
   readln;
   vivod:=k;
 end;

    begin
 setconsolecp(1251);
 setconsoleoutputcp(1251);
  read_ar(ar);
  writeln;
  print_ar(ar);
  writeln;
  kol:= vivod;
  readln;
  end.

помогите пожалуйста доработать программу тута чего то не так((



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[GetMax]

Анастасья, разбирайтесь

const nmax=20;
type mas=array[1..nmax] of real;
var
Art:Mas;
kol,k:Byte;
procedure read_ar(var ar:mas; N:Byte);
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:Byte);
var i:integer;
begin
for i:= 1 to n do
write (ar[i]:6:1);
readln;
end;

function vivod( var ar: mas; n:Byte): Byte;
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;
Inc(i);
End;
vivod:=k;
end;

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