uses 
	sockets, windows;
procedure recv(psocket:pointer);stdcall;
var
	buffer:array[0..1024] of byte;
	socket: ^longint;
	len:integer;
	remsg:pchar;
begin
	socket:=psocket;
	remsg:=pchar(@buffer);
	while true do begin
		len:=fprecv(socket^,@buffer,1024,0);
		if(len>0)then begin
			buffer[len]:=0;
			write('Received:');
			writeln(remsg);
		end;
	end;
end;
var
	serverSocket, clientSocket: longint;
	server_addr, client_addr: TInetSockAddr;
	iaddr,port:longint;
	tid:longword;
	buf:array[0..2048] of char;
	i:integer;
begin
	serverSocket:=fpSocket( AF_INET, SOCK_STREAM, 0);
	writeln('Input port:');
	readln(port);
	server_addr.sin_family:=AF_INET;
	server_addr.sin_port:=htons(port);
	server_addr.sin_addr.s_addr:=0;
	fpbind(serverSocket, @server_addr, sizeof(server_addr));
	fplisten(serverSocket,0);
	iaddr:=sizeof(client_addr);
	writeln('Waiting for connect...');
	clientSocket:=fpaccept(serverSocket,@client_addr,@iaddr);
	writeln('Connect successed!Now talking:');
	CreateThread(nil,0,@recv,@clientSocket,0,tid);
	while true do begin
		i:=0;
		while not eoln do begin
			read(buf[i]);
			inc(i);
		end;
		readln;
		fpsend(clientSocket,@buf,i,0);
	end;
end.