C++ :

#include<bits/stdc++.h>
using namespace std;
int n,x,y,z;
string a,b;
int main()
{
    cin>>n;
    for(int i=1;i<=n;i++)
    {
    	cin>>a>>b>>x>>y>>z;
    	cout<<a<<','<<b<<','<<x<<','<<y<<','<<z<<"\n";
    }
	return 0;
}

Pascal :

var st:array[1..99999]of string;
    i,n,j:longint;
begin
  readln(n);
  for i:=1 to n do
  readln(st[i]);
  for i:=1 to n do
  begin
    for j:=1 to length(st[i]) do
    if st[i][j]<>' ' then write(st[i][j]) else write(',');
    writeln;
  end;
end.