[Alegun]

Сообщение от Grynyuk

...надо из едита считать строку из 19- элементов и в этой строке найти елемент с минимальным кодом

Код:

function PosMinChr(ds: string): byte;
var
 i, b, c: byte;
begin
 c:= 255;
 for i := 1 to Length(ds) do
  if c > byte(ds[i]) then
   begin
    c:= byte(ds[i]);
    b:= i;
   end;
 PosMinChr:= b;
end;

Строка не длиннее 255 элементов, результат - позиция первого мин элемента в строке.