Pascal/Turbo Pascal - borrar espacios de una cadena

ola me podeis ayudar intanto eliminar los espacios de una cadena
tengo lo siguiente:
var s1, s2:string; i:byte;
begin
write ('introduce una cadena de caracteres: ');

writeln´'el valor de s2 es ', s2);
end.
agradeceria muxo la ayuda

Ignoro qué tiene que ver el pedazo de código que has puesto pero bueh, a lo nuestro entonces:

var
Cadena: string;

procedure EliminarEspacios(var C: string);
var
i: integer;
begin
i:=pos(' ',C);
if i = 0 then Exit;
delete(C,i,1);
EliminarEspacios(C);
end;

begin
Write('Ingrese una oración: ');
ReadLn(Cadena);
EliminarEspacios(Cadena);
Write('La oración es: ', Cadena);
ReadLn;
end.