Что происходит в процедуре? И почему минимум равен 256?

Question

[Ника]

procedure MasToStr(var a: mas; var res: string);//формирование результирующей строки по массиву
var
   min: integer;
   k: string; c: char;
begin
   res := '';
   min := 256;
   for c := 'A' to 'Z' do
      if (a[c] > 0)  and (a[c] < min) then begin //если буква встретилась
         min := a[c];
         k := c;
      end;
   if (min < 256) then 
      res := ('Буква ' + k + ' встретилась ' + min + ' раз.')
end;

Answer 1

[Василий Мельников]

Код лучше вставлять как код - удобнее читать.
В процедуру передается массив. Где по индексам соответствующим кодам символов лежит некое число. Судя по контексту ранее посчитанное количество этих символов. Находим символ с минимальным числом вхождения и формируем выходную строку с сообщением об этом.
Так как массив судя по всему символов, то и начальный min выбирается так чтобы любое значение в нем было меньше него.