"Чат" на паскале

[IonGig]

Привет! Делаю некий "чат" на паскале, ну или что-то похожее на него :D
В общем есть сервер и два клиента, сообщения с клиентов успешно передаются на сервер, но как сделать так, чтобы сообщения передавались с одного клиента на другой(можно с использование сервера). Использовал сокеты.
Код:

SERVER:
uses Sockets;
var
  s,s1: string;
  sock,clsock,clsock1: integer;
begin
  sock:=CreateServerSocket(1024);
  clsock:=Accept(sock);
  clsock1:=Accept(sock);
  writeln(clsock);
  writeln(clsock1);
  repeat
  begin
    ReceiveString(clsock,s);
    ReceiveString(clsock1,s1);
    if s<>'' then
      writeln('Client 1: ',s);
    if s1<>'' then
      writeln('Client 2: ',s1);
  end;
  until s='End Session';
  CloseSocket(sock);
  CloseSocket(clsock);
  
end.
//
CLIENT 1
uses Sockets;
var
  sock: integer;
  b1: boolean;
  s1: string;
begin
  sock:=CreateClientSocket;
  b1:=Connect(sock,'127.0.0.1',1024);
  if not b1 then
  begin
    writeln('Неудача;');
    Exit;
  end;
  repeat
    read(s1);
    SendString(sock,s1);
  until s1='End Session';
  CloseSocket(sock);
end.
//
CLIENT 2
uses Sockets;
var
  sock,clsock: integer;
  b: boolean;
  s: string;
begin
  sock:=CreateClientSocket;
  b:=Connect(sock,'127.0.0.1',1024);
  if not b then
  begin
    writeln('Неудача');
    Exit;
  end;
  repeat
    readln(s);
    SendString(sock,s);
  until s='End Session';
  CloseSocket(sock);
end.

Надеюсь на вашу помощь)