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.