so i've need to grab a value from '198.45 ₽' .
that's how it's done
const s1 = 'äй';
const s2: string = #$C3#$A4; // ä
var s3;
...
s3 := 'äöü';
...
And that's how it's really done
uses crt , cwstring;
Var
cargo , xload : Currency;
f : WideString;
e , w , k , load , miles , run : Integer;
begin
ReadLn(f);
Val(f , cargo , e);
if (e <> 0) and (Pos('₽',f) <> 0) then
begin
Delete(f , length(f) - 2, 7);
Val(f , cargo , e);
end;
Writeln(cargo:3:2);
end.