Вопрос по коду

PokazResult:       TListBox;
ZnacheniePriznaka: TListBox;
Chastota:          TListBox;
 
var
  Form1: TForm1;
  k, i, a, count:  Integer;
  x, y:            Extended;
// а где "begin"?
  k:= 0;
  a:= 0;
  count:= PokazResult.Items.Count;
 
  While k <> count Do // из-за отсутствия "Continue" значение k
                      // может перескочить через "Count" (надо k < Count)
    Begin
      i:= 1;
      x:= strtofloat(PokazResult.Items[k]);
      y:= strtofloat(PokazResult.Items[k + 1]);
 
      While x = y Do
        Begin
          Inc(i);
          Inc(k); // k++ !!!
          y:= strtofloat(PokazResult.Items[k + 1]);
        End;
 
      ZnacheniePriznaka.Items[a]:= floattostr(x);
      Chastota.Items[a]:= inttostr(i);
      Inc(a);
      Inc(k); // k++ !!!
    End;
 
// Транслит - ацтой! Пора уже выучить немного english! Ненавижу транслит!!!
// Неформатированный код - ацтой! Полез только от нефиг делать.
// И не надо писать идентификаторы в нижнем регистре, ибо
// StrToFloat читается лучше, чем strtofloat!
// А также, имена переменных должны быть информативными!
// a, b, c, x, y, й, z - ФТОПКУ!
// Да! Комментарии в коде - это наше ВСЁ!

Цитата (Frolov Dima):

Цитата (Frolov Dima):

Цитата (Frolov Dima):