Program Client;

uses Sockets,Linux;

procedure PError(constS:string); 
 begin
  writeln(S,SocketError);
  halt(100);
 end;

Var
  Saddr		:String[25];
  Buffer	:string[255];
  S		:Longint;
  Sin,Sout	:Text;
  i		:integer;

begin
  S:=Socket(AF__UNIX,SOCK__STREAM,0);
  if SocketError<>0 then Perror('Client:Socket:');
   Saddr:=  'Server Soc';
  if not Connect(S,SAddr,Sin,Sout)  then PError('Client:Connect:');
  Reset(Sin) ;
  ReWrite(Sout);
Buffer:='This is a  text string sent  by the Client. ' ;
for i:=1 to 10 do
Writeln(Sout,Buffer);
Flush(Sout);
Readln      ( SIn  , Buffer);
WriteLn(Buffer);
Close(sout) ;
end   .