type TArr = array[string] of real; 
begin
end.