если g[i] ето у тебя строка параметров типа етой "имя/номер\страна" то твой ответ вот :
k:=0;
name[i]:='';
while getChar(g[i],k)<>'/' do // пока і не равно "/"
begin
name[i]:=name[i]+getChar(g[i],k);
k:=k+1;
end;
или через
copy :
k:=0;
while getChar(g[i],k)<>'/' do
k:=k+1;
name[i]:=copy(g[i],0,k-1);