{$APPTYPE CONSOLE}
type
   trdata=record //Одно поле
     name:string;
     data:string;
   end;
   tadata=array of trdata; //Динамический массив с данными

var s:string; data:tadata;

function splitdata(r:string):tadata;
var d:tadata; i:word;
   buf:string;
begin
   i:=1;
   buf:=r;
   while i<=length(buf) do //Проходим строку до конца
   begin
     if buf[i]=':' then //Если нашли первый разделитель
     begin
       setlength(d,length(d)+1); //Увеличили массив
       d[length(d)-1].name:=copy(buf,1,i-1); //Скопировали имя поля
       delete(buf,1,i); //Удаляем лишние теперь данные
       i:=1; //И сбрасываем счётчик, потому что удалили часть строки
     end else
     if buf[i]=';' then //Если нашли второй разделитель
     begin
       d[length(d)-1].data:=copy(buf,1,i-1); //Это будут данные, записываем
       delete(buf,1,i); //Опять удаляем
       i:=1;
     end else inc(i); //Если ничего не нашли - увеличили счётчик
   end;
   //Если что-то осталось - это будут данные в последнем поле
   //(ну типа последнего двоеточия не было, мало ли)
   if length(buf)>0 then d[length(d)-1].data:=buf;
   result:=d;
end;

procedure writedata(data:tadata);
var i:byte;
begin
   for i:=0 to length(data)-1 do
   begin //Выводим по очереди имя поля и данные в нём
     writeln('Field #',i,': ',data[i].name);
     writeln('Data: ',data[i].data);
     writeln;
   end;.
end;

begin
   repeat
     readln(s); //Получаем строку каким-либо способом
     //Если строка не пуста и содержит хоть один
     //разделительный символ
     if (length(s)>0) and (pos(':',s)>0) then
     begin
       data:=splitdata(s); //Разбиваем строку
       writedata(data); //В данном случае - выводим на экран
       //Но вообще должны как-то обработать полученные данные
     end;
   until s='exit';
end.