Вопрос Паскаль

[Miraimoro]

Всем привет. Не могу понять, когда ввожу данные и открываю файл в который они вводятся у меня вылезают иероглифы, хотя в самой программе все отображается хорошо. В чём проблема может быть? Ниже код и скрин блокнота с непонятными символами.

uses crt;
const n=1;
type data=record
number:integer;
station:string[10];
time_v:integer;
time_p:integer;
svob_mesta:integer;
end;
var f:file of data;
a:array[1..n] of data;
i:integer;
m:string;
begin
Clrscr;
Assign (f,'D:\pas.txt');
writeln ('Введите y, если хотите перезаписать файл или n если открыть его');
readln (m);
if m='y' then begin
rewrite(f);
Writeln ('Введите информацию');
for i:=1 to n do begin
writeln ('Номер рейса');
readln (a[i].number);
writeln ('Пункт назначения');
readln (a[i].station);
writeln ('Время вылета');
readln (a[i].time_v);
writeln ('Время прибытия');
readln (a[i].time_p);
writeln ('Количество свободных мест');
readln (a[i].svob_mesta);
write (f,a[i]);
end;
close(f);
end else
IF m='n' then begin
reset(f);
Writeln ('Информация:');
for i:=1 to n do begin
read(f,a[i]);
writeln ('Номер рейса',a[i].number);
writeln ('Пункт назначения',a[i].station);
writeln ('Время вылета',a[i].time_v);
writeln ('Время прибытия',a[i].time_p);
writeln ('Кол-во свободных мест',a[i].svob_mesta);
writeln;
end;
close(f);
end;
end.