Pascal ékezetes betűk beolvasása állományból?

Készítettem egy állományt, amibe ez volt:

óúüűöáé

beolvastam:

program ekezet;

var

f:text;

a:string;

begin

assign(f,'ekezet.txt');

reset(f);

readln(f,a);

writeln(a);

close(f);

readln;

end.

és valamiért csak a hosszú ú-t, és ű-t ismerte fel, a többi helyén furcsa szimbólumok.

CP852-es kódolást használok.

Köszönök minden segítséget.