Pascal/Turbo Pascal - Como sacar a puerta serial?

Ya averigué cómo compilar y generar un exe. Pero mi razon de escribir es enviar datos por la puerta serial. El programa que trato de generar es:
program serial;
var puerta:text;
dato:byte;
begin
assign(puerta, 'COM1');
dato:=55;
rewrite(puerta);
write(puerta,dato)
end.

Cuál es el error porque me tira un mensaje de "Error 160: Device Write Fault".

que erramientas puedo utilizar para crear el triangulo de pascal

la presente es, primero que todo un favor es que me regale los datos y todo lo caracteristico de la compuerta serial y fisicamente que es

gracias
pstdata.... es urgente