Пересчет миль в километры — Pascal(Паскаль)

program printtab;
const
     K=1.609;     { коэффициент пересчета миль в километры }
var
     vm:real;     { скорость миль/час }
     vk: real;    { скорость км/час }
     f:text;      { файл вывода }
begin
     vm:=10;
     writeln('Вывод на принтер. Подождите...');

     assign(f,'prn');     { назначим: файл вывода ■ это принтер }
     rewrite(f);          { откроем файл для вывода }
     writeln(f,'----------------------');
     writeln(f,'миль/час   км/час ');
     writeln(f,'----------------------');
     repeat
          vk:=vm*K;
          writeln(f,vm:6:2,vk:12:2);
          vm:=vm+10;
     until vm > 200;
     writeln(f,'----------------------');
     close(f);
     writeln('Работа выполнена.');
end.