Pascal/Turbo Pascal - ayuda registros, proc

Hola... les quiero pedir ayuda pues llevo como 5 horas tratando de hacer una tarea y no me resulta me piden tener 5 buses en los cuales un pasajero ingresa el lugar donde quiera sentarse (fila y columna (10 x 4)) ademas de poner su Nombre, rut, costo del pasaje y hora de salida... luego en otra opcion del menu poner si quiere cancelar su viaje para esto ingresa su rut o nombre para salir y que se ledevuelva el dinero

las micros deben verse asi

0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0
0 0 0 0

donde 0 significa que el asiento esta vacio y 1 que esta ocupado...

yo tengo esto
program tareaxtres;
type asiento = record
nombre:string[20];
valor:integer;
rut:string[10];
end;

type bus = record
sillas:array[1..10,1..4] of asiento;
salida:string[5];
end;

type buses=array[1..5] of bus;

var arch:file of bus;
i,j,k:integer;
estacion:buses;
micro:bus;
sillas:asiento;

procedure mostrar_asientos;
begin
assign(arch, 'c:\ahorasi.txt');
rewrite(arch);
for i:= 1 to 10 do
begin
for j:= 1 to 4 do
begin
if silla[i,j].rut= '' then
write ('0 ')
else
begin
write('1 ');
end;
writeln;
end;
end;

close(arch);
readln;
end;
begin
mostrar_asientos;
end;

pero en la parte del if es donde tengo el error... si me pueden a reparar ese error creo que podria hacer lo demas solo... por favor (tiene que estar en un archivo).

en el procedure las matrices se muestran asi:
si estan vacias se supone que van a ser silla[i,j].rut:=0 cierto?
si no es asi, te simplificaria bastante agregar dentro de ese record un tipo al que le asignaras 0 ó 1
tan solo pones writeln(silla[i,j]).
El begin entre for y for esta demas..
En un mismo type puedes alojar todos los records

un menu para ordenar..
sus case
y estas listo
yo trabajaria con .dat , no se si con .txt sea tan facil hacer la comprobacion de asientos ocupados, las asignaciones y todo eso.

Recuerda inicializar todo tu archivo en otro codigo de preferencia, para que todos los campos queden con valores , sean ceros.

Siento no poder hacer más, estoy con mi proyecto del semestre encima.

"silla" no es una variable definida (¿no será "sillas"?).