Массивы, типизированные файлы.

Program xa;
Uses
  crt;
Const
  K=40;
Type
  massiv=array [1..K] of integer;
Var
  a:massiv;
  i,n,Count,j,max,MaxI:integer;
  p:boolean;
Procedure vivod(a:massiv;n:integer);
var
  i:integer;
begin
  writeln;
  for i:=1 to n do
    Write(a[i]:4);
  Writeln;
end;
 
begin
  repeat
    clrscr;
    Writeln('Vvedite ra3mernost'' massiva (max ',k, ')');
    Write('n= ');
    readln(n);
  until (n>0) and (n<k);
  clrscr;
  Writeln('3anolHite massiv');
  for i:=1 to n do
  begin
    Write('A[' ,i, ']= ');
    readln(a[i])
  end;
  clrscr;
  Writeln('Massiv do u3mneniu');
  vivod(a,n);
  i:=1;
  MaxI:=0;
  max:=0;
  while i<n do
  begin
    if a[i]=a[i+1] then
    begin
      j:=i+1;
      p:=false;
      Count:=2;
      while (j<n) and not(p) do
      begin
        if a[j]<>a[j+1] then
          P:=not(p);
        inc(j);
        inc(count);
      end;
      dec(Count);
      if Count>max then
      begin
        max:=Count;
        MaxI:=j-1;
      end;
      i:=j;
    end
    else
      inc(i);
  end;
  if MaxI=0 then
  begin
    Writeln('V dannom massive net grynn c odinakovblmi elementami');
    readkey;
    exit
  end;
  for i:=n+1 downto MaxI+1 do
    a[i]:=a[i-1];
  inc(n);
  Writeln('Massiv nocle u3mneniu');
  vivod(a,n);
  readkey;
end.