Pascal/Turbo Pascal - problema de lectura

tengo que leer un archivo que tiene este formato:
nombrecliente;nombreciudad;plazas
el problema es que el nombre del cliente me lo bien, y las plazas tambien, pero a la ciuadad le añade un simbolo delante, en vez de barcelona, lee >barcelona, y no se cual puede ser el problema.
Este es el subprograma que uso
procedure Leerpedidos (var Pedidos:text; var clien:vectorp {*un vector del registro*}; i: integer);
var
N,L,J: integer;
c:char;
r: ped {*un registro*}
begin
I:=0
while not eof (pedidos) do
begin
I:=I+1;
L:=1;
J:=1;
read (pedidos, c)
repeat
r.nomcliente[J:=C;
J:=J+1;
read(pedidos,C)
until C=';';
if J<=25 then
begin
For J:=J to 25 do
begin
r.nomcliente[J]:=' '
end;
end;
read(pedidos,C)
repeat
R.nomciudad[L]:=C
L:=L+1;
Read (pedidos,C);
until C=';';
if L<=25 then
begin
for L:=L to 25 do
begin
R.nomciudad[L]:=' ';
end;
end;
readln(pedidos,N);
R.numplaz:=N;
clien[I]:=R
end;
end;


Compilar compila, puede que haya fallos de puntuacion pero esque lo he copiado a mano.

Gracias por adelantado, cualquier sugerencia es bienvenida

Hola Alben! si puedes postear el programa completo será conveniente para probarlo directamente... para hacerlo y evitar copiar a mano, abre el archivo .pas con el bloc de notas, copia eso y pégalo aquí.
Un abrazo!