Pascal/Turbo Pascal - AYUDA PARA SUBPROGRAMA

Muchas gracias.
La cuestión es que al leer 5 Madrid; debería separar el campo 5, y Madrid en otro campo, metiendo 5 en plazas disponibles y Madrid en ciudad.
Yo creo que está mal la condición,porque si en lugar d poner 5 Madrid;pongo Madrid;5 si me separa los campos.
No se como podria poner para leer hasta caracter en blanco para almacenar el 5, y luego que siga leyendo hasta ; para que coja madrid con un readline.
gracias d antemano
....
Var
C:char;
cont1,cont2,I:integer;
Begin

read(FPlazas,C);
cont2:=1;
while not EOF(FPlazas) do
begin
cont1:=1;
-------> while (cont1<=25) and (C<>';') do
begin
Reg.Ciudad[cont1]:=C;
cont1:=cont1+1;
read(FPlazas,C)
end;
if cont1<25 then
for cont1:=cont1 to 25 do
Reg.Ciudad[cont1]:=' ';
readln(FPlazas,I);
read(FPlazas,C);
Reg.NumPlazas:=I;
Lista[cont2]:=Reg;
cont2:=cont2+1;
end;

end;

Hola.

Recoge lo que lees en un string y asigna a cada variable lo que le corresponda según vas leyendo los caracteres del string leído del fichero.

Por ejemplo, puedes poner una condición para ver si el caracter [i] del string leído es un número o no, si es número lo almacenas en la variable correspondiente, y si no lo es, lo almacenas en la que le corresponda.