что делать?записанный файл получается кривым

[6ot777]

const pi=3.14;
{раздел описаний}
var x,x0,y,h,Fxy:real;
I,n:integer;
ODZ:boolean;
Ft:text;
{Начало основной программы}
begin
{заголовок программы}
writeln('Программа табулирования функции.');
assign(ft, 'ft.txt');
rewrite(ft);
writeln(ft,'Программа табулирования функции.');
{ввод данных}
Write('начальное значение х0: ');
readln(x0);
Writeln(ft, 'начальное значение х0: ', x0:7:3);
write('Второй аргумент y: ');
readln(y);
writeln(ft, 'Второй аргумент y: ', y:7:3);
write('Шаг h: ');
readln(h);
writeln(ft,'Шаг h: ',h:7:3);
write('количество шагов n: ');
readln(n);
{начало шапки}
writeln('Таблица 1');
writeln(' ____________________');
writeln('|x      |F(x , y)    |');
writeln(' ____________________');
writeln(ft,' _____________________');
writeln(ft,'|x     |F(x , y)    |');
writeln(ft,' _____________________');
{табулирование функции}
for i:=1 to n do
begin
x:=x0+h*(i-1);
ODZ:=x-y>0;
if ODZ then
begin
Fxy:=exp(-x*y)*sin(pi*y+x)/(x-y);
writeln('|',x:7:4,'|',Fxy:12:5,'|');
writeln(ft,'|',x:7:4,'|',Fxy:12:5,'|');
end
else
begin
writeln('|',x:7:4,'|-|');
writeln('|',x:7:4,'|-|');
end;
end;
{завершение таблицы}
writeln(' ____________________');
writeln(ft,'_____________________');
close(ft);
readln;
end.

[Stilet]

А ты этот файл в блокноте смотришь?
Если да то поставь блокноту моноширинный шрифт, например Courier New