функция Choose(n:byte; C1: String): String возвращает значение из списка, Если кто нибудь не поможет! то допса мне обеспечена.... Опции

[Багирка]

функция choose(n:byte; c1: string): string возвращает значение из списка, выбранное на основании значения аргумена N. если N=1 то возвращается первый элемент списка С1, если индекс =2, то возвращается второй элемент списка и т.п. списокС1 представляет собой строку текста, содержащего перечень альтернативных вариантов возвращаемых подстрок, разделенных запятыми. Хееееелп!!!

[volvo]

Тут входная строка c1 не должна быть больше 254 символов (то есть на один меньше максимума)

Тут этот недостаток отсутствует, можно и 255 символов:

function Choose(n: byte; s: string): string;
var p: integer;
begin
  p := pos(',', s); if p = 0 then p := 256;
  if n = 1 then Choose := Copy(s, 1, p - 1)
  else Choose := Choose(n - 1,Copy(s, p + 1, 255));
end;