Уплотненный массив

[Katus]

дан массив 50 эл-ов. вывести на экран уплотненный массив исключив подряд идущие одинаковые элементы.
очень устал. не выспался и голова болит => не соображаю...

Сдла справки: уплдотненным называется массив не содержащий нулей

=.

[Niro]

  uses crt;
  const x = 50;
  type mas = array [1..x] of integer;
  var	massiv: mas;
	 j,k,s: byte;

  procedure find(massiv: mas; i: byte; var k: byte);
  begin
    k:=1;
    while massiv [i] = massiv [i+1] do
      begin
	inc (i);
	inc (k);
      end;
  end;

  procedure shift (var massiv: mas; i, k, s: byte);
  var z: byte;
  begin
    z:=0;
    repeat
      massiv [i]:= massiv [i+k];
      inc (i);
      inc (z);
    until s-k = z;
  end;

begin
  clrscr;
  s:= x;
  repeat
    inc (j);
    find (massiv, j, k);
    if k > 1 then 
      begin 
         shift (massiv, j, k, s);
	s:= s - k;
      end;
  until massiv [j] = 0;

  for j:= 1 to s do
    writeln (massiv [j]);
  readln;
end.

k - количество одинаковых подряд идущих символов
s - текущее количество символов в массиве

Должно работать, если что, то сам уже спать хочу...