program CSVParser;
uses
	Classes;
var
	CSVData: TStringList;
	Buffer, Element: String;
	StartFrom, I: Integer;
begin
	CSVData := TStringList.Create;
	repeat
		ReadLn(Buffer);
		StartFrom := 1;
		for I := 1 to Length(Buffer) do
			if Buffer[I] = ',' then
			begin
				Element := Copy(Buffer, StartFrom, I - StartFrom);
				if Length(Element) > 0 then
					CSVData.Add(Element);
				StartFrom := I + 1;
			end;
	until EoF(Input);
 
	WriteLn('Всего элементов: ', CSVData.Count);
	for Element in CSVData do
		WriteLn(Element + ';');
	CSVData.Free;
end.

cHJvZ3JhbSBDU1ZQYXJzZXI7CnVzZXMKCUNsYXNzZXM7CnZhcgoJQ1NWRGF0YTogVFN0cmluZ0xpc3Q7CglCdWZmZXIsIEVsZW1lbnQ6IFN0cmluZzsKCVN0YXJ0RnJvbSwgSTogSW50ZWdlcjsKYmVnaW4KCUNTVkRhdGEgOj0gVFN0cmluZ0xpc3QuQ3JlYXRlOwoJcmVwZWF0CgkJUmVhZExuKEJ1ZmZlcik7CgkJU3RhcnRGcm9tIDo9IDE7CgkJZm9yIEkgOj0gMSB0byBMZW5ndGgoQnVmZmVyKSBkbwoJCQlpZiBCdWZmZXJbSV0gPSAnLCcgdGhlbgoJCQliZWdpbgoJCQkJRWxlbWVudCA6PSBDb3B5KEJ1ZmZlciwgU3RhcnRGcm9tLCBJIC0gU3RhcnRGcm9tKTsKCQkJCWlmIExlbmd0aChFbGVtZW50KSA+IDAgdGhlbgoJCQkJCUNTVkRhdGEuQWRkKEVsZW1lbnQpOwoJCQkJU3RhcnRGcm9tIDo9IEkgKyAxOwoJCQllbmQ7Cgl1bnRpbCBFb0YoSW5wdXQpOwoJCglXcml0ZUxuKCfQktGB0LXQs9C+INGN0LvQtdC80LXQvdGC0L7QsjogJywgQ1NWRGF0YS5Db3VudCk7Cglmb3IgRWxlbWVudCBpbiBDU1ZEYXRhIGRvCgkJV3JpdGVMbihFbGVtZW50ICsgJzsnKTsKCUNTVkRhdGEuRnJlZTsKZW5kLg==

0YDQsNC3LNC00LLQsCzRgtGA0LgsCtGR0LvQvtGH0LrQsCDQs9C+0YDQuCwK0YHQu9C10LTRg9GO0YnQuNC5INGN0LvQtdC80LXQvdGCIC0g0L/RgNC+0LHQtdC7LAogLArQv9GD0YHRgtGL0LUg0Y3Qu9C10LzQtdC90YLRiyDQuNCz0L3QvtGA0LjRgNGD0Y7RgtGB0Y8sCgosCiwsCgrRgdGC0YDQvtC60LAg0LfQsNCy0LXRgNGI0LDQtdGC0YHRjyDQt9Cw0L/Rj9GC0L7QuSwK0YHRgtGA0L7QutCwINC30LDQv9GP0YLQvtC5INC90LUg0LfQsNCy0LXRgNGI0LDQtdGC0YHRjwoKMSwyLDMsNCwKNSw2LDcsOCwKOQ==

раз,два,три,
ёлочка гори,
следующий элемент - пробел,
 ,
пустые элементы игнорируются,

,
,,

строка завершается запятой,
строка запятой не завершается

1,2,3,4,
5,6,7,8,
9