[dzooole]

Поздрав од Македонија

I will write in English cuz I don't know Russian very well.
I would like to ask is it posible to make pascal script for converting USA/UK measurement units to EU?
Without any forms, simple script,
like this reg ex
<ERROR Find="[0-9](miles|mile)" ReplaceBy=*1.6 kilometres>

Some guy start this but SW gives an error

[Error] (10:26):Close block(']') expected

function MilesToKm (miles: string) : string;

var i : integer;
    mileVal, kmVal : single;
    tmp : string;

begin
  tmp := '';
  for i := 1 to length(miles) do
      if miles[i] in ['0'..'9','.'] then tmp := tmp+miles[i];
  mileVal := strToFloat(tmp);
  kmVal := 1.609344 * mileVal;
  // kmVal := 1.852 * mileVal; ==>nautic mile
  result := FloatToStr(kmVal)+' Kilometer';
  end;            
end.