Составить таблицу перевода метров в ярды если 1м=0,91 ярды на [1; 20] в паскале,ну программой записать

Var i:integer;
begin
  write('|МЕТРЫ|');
  for i:=1 to 20 do
  write(i:6,'|');
  writeln;
  write('|ЯРДЫ |');
  for i:=1 to 20 do
  write(i*0.91:6,'|');
  writeln;
end.